Элименты заданного массива перепишите в новый массив в обратном порядке - QBasic

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

1) Дана матрица A(N,M). Найти кол - во элементов этой матрицы, больших среднего арифметического всех ее элементов. 2) Элименты заданного массива B(N) перепишите в новый массив A(N) в обратном порядке. 3) для заданных вещественных чисел a,b,c определите, имеет ли уравнение ax2 +bx +c=0 хотя бы одно вещественное решение. Большое спасибо!

Решение задачи: «Элименты заданного массива перепишите в новый массив в обратном порядке»

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

CLS
INPUT "Vvedite n: ", n
INPUT "Vvedite m: ", m
DIM a(n, m)
RANDOMIZE TIMER
 
FOR i = 1 TO n
  FOR j = 1 TO m
    a(i, j) = INT(RND * 100)
    s = s + a(i, j)
  NEXT j
NEXT i
 
sr = s / (m * n)
 
FOR i = 1 TO n
  FOR j = 1 TO m
      IF a(i, j) > sr THEN klvo = klvo + 1
  NEXT j
NEXT i
 
PRINT "Kolvo elementov bolshe sr. ar.:"; klvo

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

Вот что происходит в этом коде:

Пользователю предлагается ввести два числа: n и m. Эти числа представляют собой размерности массива a, который будет создан далее в коде.
Создается массив a размером n на m.
Заполняется массив a случайными целыми числами от 0 до 100 с помощью цикла FOR и функции RND.
В каждой итерации внутреннего цикла сумма всех элементов массива a увеличивается на текущий элемент. Переменная s отслеживает эту сумму.
После завершения внутреннего цикла, переменная sr вычисляет среднее значение всех элементов массива a, делая поправку на размерность массива.
Во внутреннем цикле проверяется, превышает ли какой-либо элемент массива a значение sr. Если да, то переменная klvo увеличивается на 1.
По завершении внутреннего цикла, выводится сообщение с количеством элементов массива a, которые больше sr.