Найти среднее геометрическое элементов каждого чётного столбца матрицы - QBasic

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

Найти среднее геометрическое элементов каждого чётного столбца и среднее арифметическое элементов каждого нечетного столбца матрицы. 2 -2 3 -1 3 1 4 5 -2 0 8 3 8 6 7 5 9 -5 -7 -1 -6 6 6 -7 -2 7 4 2 12 10

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

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

CLS
DATA  2,-2, 3,-1, 3, 1
DATA  4, 5,-2, 0, 8, 3
DATA  8, 6, 7, 5, 9,-5
DATA -7,-1,-6, 6, 6,-7
DATA -2, 7, 4, 2,12,10
 
DIM A(1 TO 5, 1 TO 6)
 
FOR i = 1 TO 5
FOR j = 1 TO 6
   READ A(i, j)
   PRINT USING "####"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR j = 1 TO 6
   SA = 0
   SG = 1
   k = 0
   FOR i = 1 TO 5
      IF j MOD 2 = 1 THEN
         SA = SA + A(i, j)
      ELSE
         IF A(i, j) >= 0 THEN
            SG = SG * A(i, j)
         ELSE
            k = -1
         END IF
      END IF
   NEXT i
   IF j MOD 2 = 1 THEN
      PRINT "SA("; j; ") ="; SA / 5
   ELSE
      IF k < 0 THEN
         PRINT "SG("; j; ") = ???"
      ELSE
         PRINT "SG("; j; ") ="; SG ^ .2
      END IF
   END IF
NEXT j
 
END

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

Задана матрица размером 5x6, заполненная числами на языке QBasic с помощью команды DATA.
В цикле двумя вложенными циклами считываются все элементы матрицы.
В следующем цикле вычисляется среднее геометрическое для каждого чётного столбца матрицы. Для этого используется переменная SA (сумма), которая последовательно заполняется элементами чётных строк, и переменная SG (среднее геометрическое), которая вычисляется как произведение всех элементов чётной строки, потом делится на их количество.
Если в чётной строке есть отрицательные числа, то вычисляется k (переменная-флаг), которая меняет знак на противоположный.
После цикла выводится среднее геометрическое для каждого чётного столбца матрицы. Если в чётной строке есть отрицательные числа, то вместо среднего геометрического выводится сообщение SG(; j; ) = ??? (см. пункт 4).