leva347
Опубликовано 7 лет назад по предмету Информатика от leva347


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

  1. Ответ
    Ответ дан archery

    var x,s,n:integer;

    BEGIN

      repeat

         read(x);

         if x<0 then n:= n +1;

         if x >0 then s:=s+x;

      until x=0;

      writeln(n,s);

    END.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц