Вычислить сумму элементов массива - QBasic (27095)

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

Вычислить сумму элементов массива А(а1, а2, ..., an), значения которых по модулю лежат в заданном диапазоне от b до с ( b<=ai<=c). Помогите, пожалуйста. Весь форум облазил, ничего нету подобного.

Решение задачи: «Вычислить сумму элементов массива»

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

CLS
RANDOMIZE TIMER
rezult = 0
 
INPUT "Vvedite chislo elementov: ", n
INPUT "Vvedite nachalo (b): ", b
INPUT "Vvedite konec (c): ", c
 
'Zapolnyaem massiv, schitaem i vivodim rezultat
DIM a(n) AS INTEGER
FOR x = 0 TO n - 1
        a(n) = RND * 100 - 50
        PRINT a(n);
        IF ABS(a(n)) >= b AND ABS(a(n)) <= c THEN
                rezult = rezult + ABS(a(n))
        END IF
NEXT x
PRINT ""
PRINT "Rezultat: "; rezult

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

В первой строке используется команда CLS для очистки экрана.
Далее, с помощью RANDOMIZE TIMER, производится инициализация генератора случайных чисел.
Переменной rezult присваивается значение 0, которое будет использоваться как сумма элементов массива.
В следующих трех строках пользователю предлагается ввести количество элементов массива (n), начало (b) и конец (c) диапазона случайных чисел.
Далее, с помощью DIM a(n) AS INTEGER, создается массив a размером n.
В цикле FOR x = 0 TO n - 1 происходит заполнение массива a случайными числами в диапазоне от -50 до 50 с шагом 100.
Внутри цикла, с помощью IF ABS(a(n)) >= b AND ABS(a(n)) <= c, производится проверка каждого элемента массива на соответствие заданному диапазону. Если элемент удовлетворяет условию, его абсолютное значение прибавляется к переменной rezult.
После выполнения цикла, с помощью PRINT `` очищается предыдущий вывод.
Затем, с помощью PRINT Rezultat:; rezult, выводится итоговый результат - сумма элементов массива, удовлетворяющих условию.