<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=',тут_сумма)
Вот и все.
Алгоритм в виде блок-схемы в приложенной картинке
Да вообщем-то стандартный алгоритм поиска одной фальшивки из 9. Только тут извесно легче фальшивка или тяжелее
1) 3 кучки по 3. взвешиваем 2кучки, одна отложена
* равно - тогда фальшивка в отложенной куче
на чашу с приклееной ложем одну сомнительную
на вторую чашу ложим одну сомнительную и одну не фальшивую
если равно, то отложенная, если нет то сомнительная из более легкой чаши
*не равно, если сомнительная(более легкая) кучка с приклееной, тогда одну монету на другую чашу, одну откладываем. При равно - фальшивка отложена, при неравно - более легкая
,если сомнительная куча без приклееной, то действуем как при равно после первого взвещивания
писать долго, на самом деле все легко
1 гб= 8000 мбит.
14,3×8000=114.400
6,2мбит-1 сек.
1 мин.=60 мин.
1 час=60мин.
6,2×60×60=22,320 сек.
114,400:22,320=5ч.12мин.
В шестнадцатиричной системе счисления цифры представляют собой обычные цифры от 0 до 9 и дальше - буквы от A до F
FFF - наибольшее трехзназное число в 16-ти-ричной системе счисления