Ответ: Код есть только немного на другой алгоритм, он похож, можешь удалить не нужные коды алгоритма!
Похожий алгоритм прикрепил!
КОД:
1
2
3
4
5
6
7
8
9
10
11
12
var x,k1,k2:integer;
begin
writeln('Вводите целые положительные и отрицательные числа конец ввода 0');
k1:=0;
k2:=0;
repeat
readln(x);
if x
else if x>0 then inc(k2);
until x=0;
write('Количество отрицательных=',k1,' количество положительных=',k2);
end.
Объяснение:
