Составьте программу вычисления в массиве суммы отрицательных элементов - Free Pascal

Формулировка задачи:

2. Составьте программу вычисления в массиве суммы отрицательных элементов. Помогите пожалуйста

Решение задачи: «Составьте программу вычисления в массиве суммы отрицательных элементов»

Листинг программы

program pr;
 
var
  i, n, sum: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    a[i] := -10+random(21);           // диапазон заполнения ставь любой (здесь от -10 до 10)
    write(a[i]:3);
    if (a[i]  < 0) then
      sum := sum + a[i];
  end;
  writeln;
  writeln('Сумма отрицательных массива элементов: ', sum);
end.

Объяснение кода листинга программы

Объявление переменных:
- i, n, sum: integer;
- a: array [1..100] of integer;
Запрос на ввод размера массива
Инициализация суммы равной 0
Цикл заполнения массива a отрицательными числами
- a[i] := -10+random(21); // генерация случайного отрицательного числа от -10 до 10
- write(a[i]:3); // вывод на экран значения элемента массива, обрезанного до трех цифр
- if (a[i] < 0) then // если элемент отрицательный sum := sum + a[i]; // прибавляем его к сумме
Вывод суммы на экран
Конец программы