Предмет:
ИнформатикаАвтор:
bryannayo82Автор:
snowflakeАвтор:
carlenАвтор:
jazztrujilloАвтор:
jake2o7tPascalABC.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.
Автор:
payten5kwoДобавить свой ответ
Предмет:
Английский языкАвтор:
farmer61Ответов:
Смотреть
Предмет:
Русский языкАвтор:
dearey4pc4Ответов:
Смотреть
Предмет:
Английский языкАвтор:
linaccprОтветов:
Смотреть