Написать программу: c клавиатуры последовательно вводятся числа, пока не введут 0....

Question

Написать программу: c клавиатуры последовательно вводятся числа, пока не введут 0. Вывести на экран количество положительных и отрицательных чисел, введенных с клавиатуры.

Answer 1

Var x, otrc, poloz: integer;
begin
repeat
write('Введите число: ');
readln(x);
if x > 0 then inc(poloz);
if x < 0 then inc(otrc);
until x = 0;
writeln('Количество положительных чисел: ', poloz);
writeln('Количество отрицательных чисел: ', otrc);
end.

Comments

Благодарю!

---

Простит, а что означает inc? Я знаю, что это процедура, а ка кона может выглядеть более развёрнуто?

---

увеличивает на 1 переменную, которая стоит в аргументе