по какому закону предложите задать вывод матрицы
1 2 3 4
-4 -1 -2 -3
3 4 1 2
-2 -3 -4 -1
любого порядка???
очень прошу помочь
const
n = 4;
var
a: array[1 .. n, 1 .. n] of integer;
i, j, k: integer;
begin
for i := 1 to n do
for j := 1 to n do
if i = 1 then a[i, j] := j
else begin
if j = 1 then k := n else k := j - 1;
a[i, j] := - a[i-1, k];
end;
for i := 1 to n do begin
for j := 1 to n do
write(a[i, j]:4);
writeln;
end;
end.