Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вводится последовательность ненулевых чисел.0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

Ответ оставил Гость

var

a,k,s:integer;

begin

repeat

write ( = > );readln(a); 

if a<0 then k:=k+1 else s:=s+a; 

until a=0;

writeln (Summa: ,s);

writeln (Kol-vo: ,k);

readln;

end.