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

Я вам уже же дал пример, могли бы сами под себя подстроить, вот, ловите://

var input, num, nulls, positive, negative, i: integer;

begin

write ('Введите кол-во чисел: ') ;

readln (input) ;

for i : = 1 to input do begin

write ('Введите число номером ', i, ': ') ;

readln (num) ;

if num = 0 then inc (nulls, 1) ;

if num < 0 then inc (negative, 1) ;

if num > 0 then inc (positive, 1) ;

end;

writeln ('Кол-во нулей: ', nulls) ;

writeln ('Кол-во положительных чисел: ', positive) ;

writeln ('Кол-во отрицательных чисел: ', negative) ;

end.