Question

ПАСКАЛЬ. Напишите программу для получения квадратной матрицы порядка n* n.

Answer 1

PascalABC.NET

var

a:array [,] of integer;

j, i, n: integer;

begin

readln(n);

SetLength(a, n, n);

writeln('Сгенерированная матрица: ');

for i:= 0 to n-1 do

begin

for j:=0 to n-1 do

begin

a[i, j]:=random(100);

write(a[i, j]:3);

end;

writeln();

end;

end.