var
  a: array of integer;
  sum, i, n: integer;


begin
  write('Введите размер массива: ');
  readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
  begin
    write('Введите a[', i, ']: ');
    readln(a[i]);
    if (a[i] < 0) then
      sum += a[i];
  end;
  writeln('Сумма отрицательных элементов массива: ', sum);
end.