Предмет: Информатика,
автор: vilonur
Пожалуйста, помогите сделать данный двумерный массив в паскале
Приложения:
Ответы
Автор ответа:
1
begin
var n := 6;
var a := MatrGen(n, n, (i, j) -> (i + j) mod n + 1);
a.Println;
end.
iolandavalerypad353:
Или так
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.
PascalABC.NET
Похожие вопросы
Предмет: Химия,
автор: soj20699
Предмет: Математика,
автор: stretboolde
Предмет: Физика,
автор: Аноним
Предмет: Литература,
автор: olailimna1238
Предмет: Математика,
автор: abumuslimov1994