Question

Составить программу, которая создает и выводит на экран массив такого вида размером n x n (значение n – произвольное нечетное число)
0 0 0 0 0 0 0
1 0 0 0 0 0 1
1 1 0 0 0 1 1
1 1 1 0 1 1 1
1 1 0 0 0 1 1
1 0 0 0 0 0 1
0 0 0 0 0 0 0

Answer 1

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

begin
  var n:=ReadInteger('n=');
  MatrGen(n,n,(i,j)->(i>j) and (i<n-j-1) or (j>n-1-i) and (j>i)?1:0).Println(1)
end.