<em>Отличная задачка, в одну строку.</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.
<u>Пример</u>
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33
<em>Пояснения</em>
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что прошло через фильтр, будет просуммировано при помощи .Sum
И осталось только вывести результат при помощи Writeln('S=',тут_сумма)
Вот и все.
С=4-_-_-_-_-_-_-_--_-_-_-_-_-_-
Кружка
апокалипсис
сумка
айсберг
Сначала 2 разбойника,потом 2 купца,а потм разбойникаим купца.Итого 3 рейса)ЕСЛИ НЕ ТРУДНО,ОТМЕТЬ,КАК ЛУЧШЕЕ)))
1.Чтобы пользователь все обдумал и решил нужно ли ему это программное обеспечение с такими условиями
2.находятся в коробках на диске
3.Microsoft Word 2007
4.-
5.Вирус,сбой в работе программы,winlockerы могут попасться