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

Ну, согласно условию задачи, проще всего будет использовать одномерный массив.
Так как неизвестно на каком языке требуется решить задачу, опишу общий принцип:
1) Обьявляешь массив и 3 переменные целого типа;
2) Выводишь на экран надпись "Введите N";
3) Считываешь число N;
4) В цикле:
4.1) От i=1 до N вывести надпись "Введите i-ое число"
4.2) Считываешь введённое число;
4.2) Записываешь в i-ый элемент массива введённое число;
5) Обнуляешь переменную K;
6) В цикле от 1 до N проверяешь является ли i-ый элемент равным нулю. Если является то значению K присваиваешь K+1;
7) Потом просто выводишь K, как результат.

Подсчитал.. . И что?
(display "Enter N: ") (define N (read))
(display "Enter data: ") (define data (map (lambda (i) (read)) (make-list N 0)))
(define zeros (apply + (map (lambda (i) (if (= i 0) 1 0)) data)))
(for-each display (list "You've entered: " data "\nHere are " zeros " zeros\n"))
Работает:
Enter N: 5
Enter data: 1 2 0 3 0
You've entered: (1 2 0 3 0)
Here are 2 zeros

var i,n,t,k:Integer;
begin
write('n:=');readln(n);
for i:=1 to n do begin
write(i,'-> ');readln(t);
if t=0 then inc(k);
end;
writeln(k);
end.

Чисто для данной задачи - массив не нужен..

язык какой?

не джава это точно вроде с++

это джава идиоты