Question

PascalABC.NET - Сформировать квадратную матрицу порядка n ( где n — четное число) по заданному образцу:

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=new integer[n,n];
  var r:=1.To(n).ToArray;
  for var i:=n-1 downto 0 do begin
    a.SetRow(i,r);
    r:=r[1:]+Arr(0)
    end;
  a.Println(3)
end.