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

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.

Comments

ты есть в вк

---

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

---

а как написать тебе лично?

---

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

---

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