Найти сумму элементов матрицы, удовлетворяющих условию - QBasic

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

Не могу решить. 2.Найти сумму элементов матрицы {a=a_ij} , удовлетворяющих условию:

-1=<a_ij<=1

. Исходная матрица: a=

-0,7 1,2 3,5 0,3 0,5 0,7 -1,1 -3,5 -0,9 0,8 2,7 1

Решение задачи: «Найти сумму элементов матрицы, удовлетворяющих условию»

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

DIM a(3, 4)
s = 0
PRINT "A="
FOR i = 1 TO 3
  FOR j = 1 TO 4
    READ a(i, j)
    PRINT USING " ##.#"; a(i, j);
    IF a(i, j) >= -1 AND a(i, j) <= 1 THEN s = s + a(i, j)
  NEXT
  PRINT
NEXT
PRINT "S ="; s
DATA -.7,1.2,3.5,.3,.5,.7,-1.1,-3.5,-.9,.8,2.7,1

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

В этом коде:

Создается двумерная матрица a размером 3x4.
Инициализируется переменная s со значением 0, которая будет использоваться для хранения суммы элементов матрицы a.
Выводится сообщение A= и начинается цикл, который проходит по всем элементам матрицы a.
Внутри цикла для каждого элемента матрицы a выводится сообщение в формате ##.#, а затем значение элемента преобразуется в число и добавляется к переменной s, если оно удовлетворяет условию a(i, j) >= -1 AND a(i, j) <= 1.
После завершения внутреннего цикла, выводится сообщение S= и значение переменной s.
В конце кода приведены данные для проверки работы программы. Используемые переменные:
a - двумерная матрица.
s - переменная для хранения суммы элементов матрицы a. Значения переменных:
a(i, j) - элемент матрицы a в строке i и столбце j.
s - сумма элементов матрицы a, удовлетворяющих условию a(i, j) >= -1 AND a(i, j) <= 1. Обратите внимание, что в данном коде нет проверки на выход за границы матрицы.