Паскаль. задается последовательность натуральных чисел. Найти среднее арифметических всех отрицательных чисел

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи в Паскале нужно пройти по всей последовательности, вычислить среднее арифметическое только отрицательных чисел и вывести результат. Ниже приведен пример кода для решения данной задачи:

program AverageNegativeNumbers
va
numbers: array[1..10] of integer; // предположим, что последовательность состоит из 10 чисе
sum, count, i: integer
average: real
begi
sum := 0
count := 0
// заполнение массива числам
for i := 1 to 10 d
begi
write('Введите число ', i, ': ')
readln(numbers[i])
// проверка на отрицательное числ
if numbers[i] < 0 the
begi
sum := sum + numbers[i]
count := count + 1
end
end
if count > 0 the
begi
average := sum / count
writeln('Среднее арифметическое отрицательных чисел: ', average:0:2)
en
els
writeln('В последовательности нет отрицательных чисел.')
end.

Вы можете изменить размер массива и вводимых чисел в соответствии с вашей задачей.