Консультация № 137878
26.05.2008, 19:53
0.00 руб.
0 1 1
Вводится последовательность, 0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и найти сумму положительных чисел.

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа