Сделать программу в паскале. Складіть программу за якою числа вводятся з клавіатури до...

Question

Сделать программу в паскале.
Складіть программу за якою числа вводятся з клавіатури до тих пір, поки конистувач не веде число 0. Серед цих чисел підрахувати додатні і від'ємні. робити через while

Answer 1

Var
   A,p,o,n:integer;
Begin
Read(A);
While A<>0 do
   Begin
   if A > 0 then p:=p+1
   else o:=o+1;
   Read(A);
   End;
WriteLn('Количество положительных (>0): ',p);
WriteLn('Количество отрицательных (<0): ',o);<br>End.


Пример работы программы:

1
2
3
-4
-5
0
Количество положительных (>0): 3
Количество отрицательных (<0): 2<br>