Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var pos,neg,i: integer;
begin
  pos:=0;  neg:=0;
  i:=1;
  while i<>0 do
  begin
    readln(i);
    if i>0 then pos:=pos+1
    else neg:=neg+1;
  end;
  writeln(число положительных чисел = ,pos);
  writeln(число отрицательных чисел = ,neg);
end.