Question

Пожалуйста, помогите сделать данный двумерный массив в паскале

Answer 1

begin

 var n := 6;

 var a := MatrGen(n, n, (i, j) -> (i + j) mod n + 1);

 a.Println;

end.

Answer 2

Или так

Answer 3

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.

Answer 4

PascalABC.NET