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

Question

Информатика

Мая

15 марта, 06:54

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

+3

Ответы (1)

Знаете ответ на вопрос?

Албин · 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.