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

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

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