Вычислить средние арифметические значения отрицательных элементов - Pascal ABC

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

Вычислить сpеднее аpифметическое значение отpицательных элементов массива Х, состоящего из N целых чисел и находящегося в динамической памяти.

Решение задачи: «Вычислить средние арифметические значения отрицательных элементов»

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

var n,i,sum,count:integer;
x:array of integer;
BEGIN
n:=10;
sum:=0;
count:=0;
SetLength (x,n);
x:=ArrRandom (n,-10,10);
For i:=0 to n-1 do
IF x[i]<0 THEN begin sum:=sum+x[i];
                     count:=count+1;
               end;
Writeln (sum/count);
END.

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

Переменные n, i, sum и count инициализируются значениями типа integer.
Создается массив x типа array of integer со 10 элементами.
Значения массива x случайным образом устанавливаются в диапазоне от -10 до 10.
В цикле for перебираются все элементы массива x от 0 до n-1.
Если значение элемента x[i] меньше нуля, то к переменной sum добавляется значение этого элемента, а к переменной count увеличивается на 1.
По завершении цикла вычисляется среднее арифметическое значение, разделив сумму на количество элементов, и выводится результат.