< >

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

Ответы

Ответ дал: BobbyFresnel
0

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p < 0).Sum.Print

end.

Приложения:
BobbyFresnel: Забыл про отрицательные, поправлю сейчас
BobbyFresnel: Поправил
Вас заинтересует
Биология
1 год назад
Какие растения считают сорными? 2 верных ответа. Сахарный тростник Лебеда Женьшень Ромашка пахучая Лук порей
Английский язык
1 год назад
Briefly describe the birth and development of the EU
Геометрия
1 год назад
Задачі на фото. Тема: Вектори
Физика
1 год назад
Два конденсатори ємністю 2 мкф і 4мкф.Визначити їх загальну ємність при послідовному і паралельному сполученні.
Русский язык
3 года назад
ПОМОГИТЕ СРОЧНО ПЖ нужно сделать синтаксический разбор предложений. 1. Часов десять вечера я закрыл тетрадь и лëг спать. 2. Дуб на опушке леса разносил. 3. Компания ребят из школьного оркестра
Химия
3 года назад
Осуществите превращения: Fe→FeSO4→Fe(OH)2→FeO→ FeCl2 → Fe(OH)2 Первую реакцию рассмотрите с точки зрения ОВР, а вторую напишите в ионном виде.
Информатика
8 лет назад
диспетчеры архивов и программы архиваторов-это одно и тоже?
Литература
8 лет назад
Характеристика деда в повести заколдованное место скажите пж