Ответы
Ответ дал:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад