Дана последовательность целых чисел (массив).определить сумму всех отрицательных элементов последовательности. решить эту

Эм. for i:=0 to n do
if a[i]<0 then
b:=b+a[i]
Кароч вводишь переменную b, приравниваешь к нулю. Бахаешь для каждого члена последовательности проверку. Если отрицательный - прибавляешь его к b.