Найти среднее арифметическое четных элементов массива - QBasic

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

Помогите! Написать программу формирования одномерного массива размера М. Найти среднее арифметическое четных элементов. Получить новый массив путем умножения всех элементов на наименьший элемент.

Решение задачи: «Найти среднее арифметическое четных элементов массива»

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

INPUT "vvedite kolichestvo elementov N ",n
DIM a(n)
FOR i=1 TO N
INPUT "vvedite element ",a(i)
NEXT
PRINT "massiv"
FOR i=1 TO N
PRINT a(i);
NEXT

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

В первой строке кода программа запрашивает у пользователя количество элементов в массиве (обозначим это число как N)
Далее, с помощью команды DIM, создается массив a(n), где n - это переменная, в которую было записано количество элементов.
Затем, с помощью цикла FOR, происходит заполнение массива a(i) элементами, которые вводит пользователь.
После заполнения массива, программа выводит его на экран с помощью команды PRINT massiv.
Далее, с помощью цикла FOR, программа выводит на экран все элементы массива a(i).