26.05.2008, 20:07
общий
это ответ
Здравствуйте, Sanq4!
Решение задачи в приложении.
Приложение:
uses crt;var a,sum,k:integer;beginclrscr;writeln(‘Vvedite chisla:‘);k:=0;sum:=0;repeatreadln(a);{вводим число}if a>0 then sum:=sum+a{если положительное, считаем сумму}else if a<0 then k:=k+1;{если отрицательное-количество}until a=0;writeln(‘Summa=‘,sum,‘ Kolichestvo=‘,k);readlnend.