Both
7 год назад
Сформулировать матрицу по образу (Паскаль):
11111
01110
00100
01110
11111
ОТВЕТЫ
Киприан
Jul 18, 2019
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
MatrGen(5,5,(i,j)-gt;((ilt;=j) and (ilt;=4-j)) or
((igt;=j) and (igt;=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)-gt;((ilt;=j) and (ilt;=4-j)) or
((igt;=j) and (igt;=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
31
