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
for j:=0 to n-1 do
a[i, j]:=random(100);
write(a[i, j]:3);
end;
writeln();
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.