1. Написать программу, которая выводит количество нулей во вводимой с клавиатуры последовательности из 100 целых чисел.

Question

Маланья

31 марта, 00:59

+5

Ответы (1)

Знаете ответ на вопрос?

Алина · Answer 1

Program n1;

var a, k, i: integer;

begin

k:=0;

for i:=1 to 100 do

begin

readln (a) ;

if (a=0) then k:=k+1;

end;

writeln (k) ;

end.