Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение - Pascal

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

Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение. Как исключить макс. и мин. значение?

Решение задачи: «Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение»

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

FOR i:= 1 to n DO
if (i<>imax) and (i<>imin) then
sum:=sum+a[i];

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

В данном коде происходит вычисление среднего арифметического элементов массива a[i] при условии, что индекс i не равен максимальному (imax) и минимальному (imin) индексу массива. Для решения этой задачи используется цикл FOR, который проходит по всем элементам массива от 1 до n. Внутри цикла проверяется условие if, которое проверяет, что текущий индекс i не равен максимальному и минимальному индексам. Если это условие выполняется, то к переменной sum прибавляется значение элемента массива с текущим индексом i. Таким образом, в результате выполнения данного кода будет вычислено среднее арифметическое элементов массива a[i], за исключением максимального и минимального значений.