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 MyFill(a: array[,] of integer);

begin

 for var i := 0 to a.RowCount - 1 do

   for var j := i to a.ColCount - 1 do

     a[i, j] := j - i + 1

end;

begin

 var a := MatrFill(6, 6, 0);

 MyFill(a);

 a.Println(2)

end.