напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 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.
Answers & Comments
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.