Вводится последовательность из N чисел. найти сколько в ней нулей
Вводится последовательность из 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.
Не нашли ответ?
Похожие вопросы