Составить программу на Паскале. Заполнить массив размером 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
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
More Questions From This User See All
Answers & Comments
===== 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.