Question

Построить матрицу по образцу

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (n, k) := (5, 1);

 var a := MatrFill(n, n, 2);

 for var i := n - 1 downto 1 do

   for var j := 0 to n - 1 - i do

   begin

     a[i + j, j] := k;

     Inc(k)

   end;

 a.Println(3)

end.