напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и ПОДСЧЕТ кол-ва положительных и отрицательных чисел
program qq;
var a,pol,otr:integer;
begin
pol:=0;
otr:=0;
repeat
begin
writeln(Введите число);
read(a);
if a>0 then pol:=pol+1
else otr:=otr+1;
end;
until a=0;
writeln(Положительных чисел - ,pol);
writeln(Отрицательных чисел - ,otr);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
