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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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);

End.

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

1

2

3

-4

-5

0

Количество положительных (>0): 3

Количество отрицательных (<0): 2