Найти среднее значение элементов массива, разделить каждый элемент на это значение - QBasic

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

Вводится произвольный квадратный массив. Нужно найти среднее значение элементов этого массива, разделить каждый элемент на это среднее значение и вывести результат в виде отдельного массива. Выручайте!

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

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

INPUT razmerx, razmery
DIM a(razmerx,razmery)
DIM b(razmerx,razmery)
 
FOR i = 0 TO razmerx - 1
    FOR j = 0 TO razmery - 1
        INPUT a(i,j)
        s = s + a(i,j)
    NEXT j
NEXT i
 
s = s / (razmerx * razmery)
 
FOR i = 0 TO razmerx - 1
    FOR j = 0 TO razmery - 1
        b(i,j) = a(i,j) / s
    NEXT j
NEXT i

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

Ввод размеров массива a и b с помощью команд INPUT razmerx, razmery
Объявление массива a(razmerx,razmery) и b(razmerx,razmery)
Заполнение суммы элементов массива a переменной s с помощью цикла FOR и команды INPUT a(i,j)
Вычисление среднего значения элементов массива a путем деления суммы на произведение размеров массива с помощью команды s = s / (razmerx * razmery)
Заполнение массива b элементами, которые равны соответствующим элементам массива a, разделенным на среднее значение с помощью цикла FOR и команды b(i,j) = a(i,j) / s
Ввод значений элементов массива a с помощью цикла FOR и команды INPUT a(i,j)