// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum) end.
Пример n= 8 34 -12 0 16 -5 -7 2 -9 S=-33
Пояснения ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n. ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел. Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа. Все, что через фильтр, будет просуммировано при И осталось только вывести результат при тут_сумма) Вот и все.
program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме