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

Question

Информатика

Веденей

22 июня, 00:55

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

+2

Ответы (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.