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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!