Типовые задачи на обработку одномерных массивов

Формирование и вывод массива, вычисление суммы, произведения, количества элементов, среднего арифметического элементов массива, нахождение максимального и минимального элемента массива.

Пример. Задать размер n линейного массива A, заполнить его случайными целыми числами в диапазоне от –10 до 10. Массив вывести в текстовое окно и определить:

- сумму всех элементов массива;

- количество положительных элементов массива;

- наименьший элемент массива;

- среднее арифметическое элементов массива кратных пяти.

Поскольку размер массива n и сам массив A будут использоваться в разных событийных процедурах (в процедуре заполнения массива случайными числами и процедуре обработки массива), то они должны быть описаны в разделе объявления доступном для всех процедур приложения (в разделе General).

Для поиска минимального элемента в массиве вначале устанавливается текущий минимум по нулевому элементу массива min:=A[0]. Затем начинается просмотр элементов массива: выбирается очередной элемент A[i] и сравнивается с min. Если элемент M[i] меньше текущего min, то выполняется переприсваивание min:=A[i].

Option Explicit 'Установка режима, при котором запрещается использовать

'необъявленные переменные

Dim a() As Integer 'Описание динамического массива целых чисел

Dim n As Integer

'Процедура заполнения массива случайными числами и вывод массива в текстовое окно