Найти и вывести разницу между сумой элементов двух матриц - QBasic

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

Помогите с програмой! Никак не могу решить((( Найти и вывести разницу R между сумой елементов матрицы Z(i,j)<7 и сумой елементов матрицы Z(i,j)>7 масива Z(3,4). Заранее спасиб!

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

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

DIM Z(3, 4)
FOR i = 0 TO 2
    FOR j = 0 TO 3
        Z(i, j) = INT(RND(1) * 10)
        IF Z(i, j) < 7 THEN s1 = s1 + Z(i, j)
        IF Z(i, j) > 7 THEN s2 = s2 + Z(i, j)
        PRINT Z(i, j);
    NEXT j
    PRINT
NEXT i
R = s1 - s2
PRINT "R="; R

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

В этом коде две вложенные циклы проходят по всем элементам двухматрицы Z(3,4). В первой итерации внутреннего цикла переменной Z(i,j) присваивается случайное целое число от 0 до 9 с шагом 1. Затем проверяется, является ли это число меньше 7, и если да, то оно добавляется к переменной s1. Затем проверяется, является ли это число больше 7, и если да, то оно добавляется к переменной s2. После завершения внутреннего цикла, значения матрицы Z(3,4) выводятся на экран. Затем внешний цикл проходит по всем элементам матрицы Z(3,4), и после его завершения, сумма элементов s1 и s2 вычисляется и сохраняется в переменной R. Наконец, значение переменной R выводится на экран.