Вводится последовательность из N чисел. найти сколько в ней нулей

Question

Информатика

Маркел

30 сентября, 09:09

Вводится последовательность из N чисел. найти сколько в ней нулей

+5

Ответы (1)

Знаете ответ?

Сюня · Answer 1

var a, i, n, k : integer;

begin k : = 0;

write ('n = ') ;

readln (n) ;

for i : = 1 to n do

begin read (a) ;

if a = 0 then

k : = k + 1; end;

writeln (k,' - кол-во нулей') ;

end.