Подсчитать количество вводимых положительных и отрицательных чисел. Операцию ввода повторить 12 раз. turbo poscal

Question

Информатика

Сильвестра

15 декабря, 20:05

Подсчитать количество вводимых положительных и отрицательных чисел. Операцию ввода повторить 12 раз. turbo poscal

+5

Ответы (1)

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

Владлен · Answer 1

Var pc, oc, x, i : longint;

begin

oc : = 0; pc : = 0;

for i : = 1 to 12 do begin

readln (x) ;

if (x < 0) then oc : = oc + 1

else pc : = pc + 1;

end;

writeln ('Положительные:') ; writeln (pc) ; writeln ('Отрицательные:') ; writeln (oc) ;

readln (x) ;

end.

P. S. 0 считается положительным в этой программе