ответ:тщательно проанализировать реальный объект или процесс;
выделить его наиболее существенные черты и свойства;
определить переменные, т.е. параметры, значения которых влияют на основные черты и свойства объекта;
описать зависимость основных свойств объекта, процесса или системы от значения переменных с логико-математических соотношений (уравнения, равенства, неравенства, логико-математические конструкций);
выделить внутренние связи объекта, процесса или системы с ограничений, уравнений, равенств, неравенств, логико-математических конструкций;
определить внешние связи и описать их с ограничений, уравнений, равенств, неравенств, логико-математических конструкций.
Объяснение:
// 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), который пропускает только отрицательные числа.
Все, что через фильтр, будет просуммировано при
И осталось только вывести результат при тут_сумма)
Вот и все.