1. дано n чисел. Вычислить сумму отрицательных чисел.

program sum; / / Название программы

var

a: array of integer; / / Создание динамического массива

n, i, k: integer; / / Создание целочисленных переменных

begin

k:=0;

read (n); / / Читаем n - количество чисел

SetLength (a, n); / / Устанавливаем длину массива

for i:=0 to length (a) - 1 do / / В цикле проходимся и записываем данные в массив

begin

readln (a[i]);

if a[i]<0 then / / Если значение переменной массива < 0, то суммируем её с счётчиком

k:=k+a[i];

end;

println (k); / / Выводим сумму отрицательных знач.

end.