В одномерном массиве все элементы умножить на среднее арифметическое наибольшего и наименьшего - Pascal

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

В заданном одномерном массиве все элементы этого массива умножить на среднее арифметическое наибольшего и наименьшего элементов этого массива. Начальный и преобразованный массивы напечатать с указанием, что печатается.

Решение задачи: «В одномерном массиве все элементы умножить на среднее арифметическое наибольшего и наименьшего»

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

const
n = 10;
var
a:array[1..n] of real;
max, min, sr:real;
i:integer;
begin
writeln('Начальный массив:');
for i:=1 to n do
    begin
    a[i]:=random(10)+random;
    write(a[i]:5:2);
    end;
min:=a[1];
max:=a[1];
for i:=2 to n do
    begin
    if a[i] < min then
        min:=a[i];
    if a[i] > max then
        max:=a[i];
    end;
sr:=(min+max)/2;
writeln('Преобразованный массив:');
for i:=1 to n do
    write(a[i]*sr:6:2);
end.

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

Объявление константы n со значением 10.
Объявление массива a из 10 элементов, имеющих тип данных real (вещественные числа).
Объявление переменных max и min как вещественные числа для хранения максимального и минимального значений соответственно.
Объявление переменной sr для хранения среднего арифметического между максимальным и минимальным значениями.
Объявление переменной i как целого числа для использования в циклах.
Заполнение массива a[i] случайными числами от 0 до 10 с помощью функции random.
Нахождение минимального и максимального значений в массиве.
Вычисление среднего арифметического sr между минимальным и максимальным значениями.
Перебор всех элементов массива и умножение их на sr, затем вывод полученных значений. Предположительно, этот код на языке Pascal принимает массив из 10 элементов, заполняет его случайными числами, находит минимальное и максимальное значения, находит среднее арифметическое между ними и умножает все элементы массива на это среднее значение, выводя преобразованный массив.