Ответы
Ответ дал:
0
begin
var n := 6;
var a := MatrGen(n, n, (i, j) -> (i + j) mod n + 1);
a.Println;
end.
Ответ дал:
0
Или так
Ответ дал:
0
begin
var n := 6;
var a := new integer[n, n];
for var i := 0 to n - 1 do
begin
for var j := 0 to n - 1 do
begin
a[i, j] := (i + j) mod n + 1;
write(a[i, j]:4);
end;
writeln;
end
end.
var n := 6;
var a := new integer[n, n];
for var i := 0 to n - 1 do
begin
for var j := 0 to n - 1 do
begin
a[i, j] := (i + j) mod n + 1;
write(a[i, j]:4);
end;
writeln;
end
end.
Ответ дал:
0
PascalABC.NET
Похожие вопросы
2 года назад
2 года назад
8 лет назад
9 лет назад