Подсчитайте, сколько среди данных 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.
