• Дана последовательность чисел, найти сумму отрицательных элементов ( в pascal )

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     ReadSeqInteger('Вводите:', ReadInteger('n='))

         .Where(t -> t < 0).Sum.Println

    end.

    Примерn= 7Вводите: 13 -27 52 0 5 -10 -42-79
  • Добавить свой ответ

Войти через Google

или

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

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

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