Помогите пожалуйста по информатике.Дана последовательность целых чисел а1 а2 а3...аn....

Question

Помогите пожалуйста по информатике.Дана последовательность целых чисел а1 а2 а3...аn. вычислите сумму отрицательных элементов

Answer 1

 const     n = 10;   
    var 
  a : array [1..n] of integer; 
   s,i : integer;     
 begin   
//Формирование массива пропускаю 
     s:= 0; 
  for i := 1 to n do 
  if a[i] < 0 then   
  s:= s + a[i];
   writeln (s);  
  end.