Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  var a:=MatrGen(n,n,(i,j)->i=j?i+1:i=n-j-1?n-i:0);
  a.Println(4)
end.