ОЕ
Оксана Егорычева
for i:=1 to n do
begin
for j:=1 to m do Write(a [ i, j ]:5);
WriteLn
end;
После каждых n записей выводить перенос строки
заполняется такой массив всегда или строками или столбиками, кому как нравится. . а я так понимаю вам захотелось по диагонали? ))
--- о понял понял ))
значит заполняешь первую строку и ставишь перенос строки ))
---
var m: array[0..10,0..10] of integer;
i,j:integer;
begin
for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
randomize;
m[i,j]:=random(10);
write(' ',m[i,j],' ');
end;
writeln;
end;
end.