Найти сумму отрицательных элементов массива - Turbo Pascal (29146)

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

Найти сумму отрицательных элементов массива. Помогите, пожалуйста !!!

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

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

Var a:array[1..100] of integer;
      I,n: byte;
      sum: integer;
Begin
 clrscr;
 write('Введите к-во элементов массива: ');
 readln(n);
 randomize;
 for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i],'  ');
 end;
 sum:=0;
 for i:=1 to n do
 if a[i] < 0 then
  sum:=sum+a[i];
 writeln('sum = ',sum);
End.

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

Создается переменная a типа array[1..100] of integer;, которая будет хранить массив целых чисел.
Задаются две переменные I и n типа byte, которые будут использоваться для цикла.
Создается переменная sum типа integer, которая будет использоваться для хранения суммы отрицательных элементов массива.
Выводится сообщение Введите количество элементов массива: для получения от пользователя числа n.
С помощью функции randomize инициализируется генератор случайных чисел.
Запускается цикл for i:=1 to n do, который будет выполняться n раз.
Внутри цикла создается переменная a[i] типа integer, которая будет хранить i-й элемент массива.
Выводится сообщение a[i] = с значением a[i] для каждого элемента массива.
Инициализируется переменная sum со значением 0.
Запускается еще один цикл for i:=1 to n do, который будет выполняться n раз.
Внутри цикла проверяется условие if a[i] < 0 then, которое будет выполняться для каждого элемента массива.
Если условие истинно (т.е. элемент массива отрицательный), то к переменной sum прибавляется значение a[i].
После завершения внутреннего цикла выводится сообщение sum = с найденным значением суммы отрицательных элементов массива.
Завершается программа.