Question

Составить программу на Паскале. Заполнить массив размером 6 x 6 по прави-лу, используя процедуру.
1 2 3 4 5 6
0 1 2 3 4 5
0 0 1 2 3 4
0 0 0 1 2 3
0 0 0 0 1 2
0 0 0 0 0 1

Answer 1

===== PascalABC.NET =====

procedure Fill(var a: array[,] of integer);

begin

 var n := a.RowCount;

 a := MatrGen(n, n, (i, j) -> i > j ? 0 : j - i + 1);

end;

begin

 var M := new integer[6, 6];

 Fill(M);

 M.Println(2)

end.