Question

двумерные массивы 8,на языке borland pascal

Answer 1

type TMas=array[1..3, 1..2] of integer;
var mas:TMas;
    i, j:byte;
    s:integer;

begin
randomize;
s:=0;
for i:=1 to 3 do
 begin
 for j:=1 to 2 do
  begin
  mas[i, j]:=random(100);
  write(mas[i, j]:4);
  end;
 writeln;
 end;
for i:=1 to 3 do
 begin
  for j:=1 to 2 do
  s:=s+mas[i, j];
 write('summa ', i, ' stroki=', s);
 writeln;
 s:=0;
 end;
writeln;
end.

Answer 2

ты есть в вк

Answer 3

если что-то требуется, то Вы можете написать мне в мой профиль на этом ресурсе

Answer 4

в рамках этого ресурса есть личная почта, Вы можете отправить мне сообщение

Answer 5

не подскажите мне свой е-mail