Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чиселнулей.

Program Z_n; var a: array[1… 10000] of integer; N,c,i: integer; BeginReadln (N); For i: =1 to N do beginReadln (a[i]); // вводите числа через enterif a[i]=0 then c: =c+1; end; Writeln ('Среди введеных чисел' ,c,' нулей'); end.