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

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.