Сформировать квадратную матрицу порядка n по заданному образцу (pascal)

begin

var m := 5;

var n := 5;

var a := new integer[m, n];

for var i := 0 to m - 1 do

for var j := 0 to n - 1 do

begin

if j > i then a[i, j] := j - i + 1;

if i = j then a[i, j] := 1;

if i > j then a[i, j] := i - j + 1;

end;

a.Println;

end.

Сформировать квадратную матрицу порядка n по заданному образцу (pascal) | 1 2 3 ... n-2...