var kolp, kolo, x: integer;
begin
repeat
Write('Введите число: ');
ReadLn(x);
if x > 0 then inc(kolp) else if x < 0 then inc(kolo);
until x = 0;
WriteLn('Кол-во положительных чисел: ', kolp);
WriteLn('Кол-во отрицательных чисел: ', kolo);
end.
Объяснение:
