Нужно упростить примеры которые прикреплены

Отличная задачка, в одну строку.

// 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), который пропускает только отрицательные числа.
Все, что через фильтр, будет просуммировано при
И осталось только вывести результат при тут_сумма)
Вот и все.

Кодирование информации (англ. information coding) — отображение данных на кодовые слова. Обычно в процессекодирования информация преобразуется из формы, удобной для непосредственного использования, в форму, удобную для передачи, хранения или автоматической обработки.

искажение случайная несанкционированная модификация информации при ее обработке техническими средствами в результате внешних воздействий (помех), сбоев в работе аппаратуры или неумелых действий обслуживающего персонала.

алгоритм Система последовательных операций (в соответствии с определёнными правилами) для решения какой-н. задачи.

Хранение информации – это ее запись во вс запоминающие устройства на различных носителях для последующего использования 

Хранение является одной из основных операций, осуществляемых над информацией, и главным обеспечения ее доступности в течение определенного промежутка времени.

3