Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('N=',ReadSeqInteger(ReadInteger('n=')).Where(k->k=0).Count)
end.
Пример
n= 7
1 0 0 4 -3 0 3
N=3
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('N=',ReadSeqInteger(ReadInteger('n=')).Where(k->k=0).Count)
end.
Пример
n= 7
1 0 0 4 -3 0 3
N=3
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад