Question

Дан массив (Паскаль) из десяти целых чисел, подсчитать сколько встречается 0. Как это делается? помогите, пожалуйста.

Answer 1

Var 
a:array[1..10] of integer; 
i,k:byte; 
begin 
writeln('Заполнение массива'); 
for i:=1 to 10 do 
readln(a[i]); 
for i:=1 to 10 do 
begin 
if a[i]=0 then 
k:=k+1; 
end; 
writeln('Кол-во нулей:',k); 
end.