Сформулировать матрицу по образу (Паскаль):
11111
01110
00100
01110
11111

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  MatrGen(5,5,(i,j)->((i<=j) and (i<=4-j)) or    ((i>=j) and (i>=4-j))?1:0).Println(2)end.Результат 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 0 1 1 1 0 1 1 1 1 1