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

Пример программы на VBA, которая вычисляет среднее арифметическое элементов массива без учёта минимального и максимального элементов: yandex.ru

var a: array[1..100] of integer; n, i: integer; s: real;  begin randomize; write('Введите значение т от 1 до 100 n='); readln(n); writeln('Массив'); s:=0; for i:=1 to n do begin a[i]:=random(50); write(a[ i]:4); s:=s+a[i]; end; writeln; s:=s/n; writeln('Среднее арифметическое=',s:0:2); end. 

Также на сайте cyberforum.ru представлен пример программы, которая вычисляет среднее арифметическое элементов двумерного массива без учёта минимального и максимального элементов этого массива. www.cyberforum.ru