Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу на PascalABCNET
Определите, сколько среди данных n чисел нулей.
ВХОДНЫЕ ДАННЫЕ
Вводится одно число n — количество чисел, а затем n целых чисел.
ВЫХОДНЫЕ ДАННЫЕ
Выведите одно целое число — количество нулей в этой последовательности.

Ответ оставил Гость

var   
i,n,a,k : integer;    
begin 
readln (n); 
k := 0;   
for i := 1 to n do   
begin     
readln (a);     
if a = 0 then     
k := k +1;   
end; 
writeln (k); 
end.