Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчитать количество введённых положительных и отрицательных чисел.

Question

Информатика

Глебыч

3 марта, 22:49

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчитать количество введённых положительных и отрицательных чисел.

+2

Ответы (1)

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

Агафия · Answer 1

Var pos, neg, i: integer;

begin

pos:=0; neg:=0;

i:=1;

while i0 do

begin

readln (i) ;

if i>0 then pos:=pos+1

else neg:=neg+1;

end;

writeln ('число положительных чисел = ', pos) ;

writeln ('число отрицательных чисел = ', neg) ;

end.