Подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем - QBasic

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

Здравствуйте, помогите пожалуйста дописать программу: Дан целочисленный массив из 30 элементов.элементы массива могут принимать значение от -1000 до 1000.напишите программу которая позволяет подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем.исходные данные объявлены так,как показано ниже,запрещается использовать переменные не объявленные ниже..

                    Листинг программы
                
 
                        
                          
                    
DIM A(1 to 30) as integer
DIM N AS BYTE,I AS BYTE,Y AS BYTE,X AS INTEGER
DIM S AS SINGLE
N=30
for i=1 to n
INPUT A (i)
NEXT i

Решение задачи: «Подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем»

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

CLS
n = 30
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
FOR i = 1 TO n
    IF a(i) MOD 10 = 0 THEN s = s + a(i): x = x + 1
NEXT
s = s / x
PRINT "s="; s

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

Установка начального значения переменной n равным 30.
Создание массива a(n) с помощью DIM-инструкции, где n - это количество элементов в массиве.
Использование цикла FOR для заполнения массива значениями, введенными пользователем.
Создание переменных s и x для хранения суммы и количества элементов массива соответственно.
Использование цикла FOR для проверки каждого элемента массива. Если элемент оканчивается на ноль, то он добавляется к переменной s, а переменная x увеличивается на единицу.
Вычисление среднего арифметического путем деления суммы на количество элементов.
Вывод значения переменной s с помощью PRINT-инструкции.