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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years