Создать массив, состоящий из произведения элементов матрицы по столбцам - QBasic

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

а) Создать массив, состоящий из произведения элементов матрицы по столбцам; б) поменять местами элементы строки 2-й и элемента a-34

Решение задачи: «Создать массив, состоящий из произведения элементов матрицы по столбцам»

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

CLS
m = 10
n = 10
 ' Ручной ввод(можно откомментировать)
 'INPUT "Vvedite kol-vo stolbcov:"; m
 'INPUT "Vvedite kol-vo strok:"; n
DIM A(m, n) AS INTEGER
  '  Заполняем матрицу и на экран ее
  RANDOMIZE TIMER
  FOR iy = 1 TO n: FOR ix = 1 TO m
    A(ix, iy) = RND * 50: PRINT A(ix, iy);
  NEXT: PRINT : NEXT
  '  Ищем строку с элементом равным 34
  FOR iy = 1 TO n: FOR ix = 1 TO m
    IF A(ix, iy) = 34 THEN
       PRINT "Stroka s elementom = 34 naidena"
       PRINT "Menyaem stroki 2 i"; iy
       FOR j = 1 TO m
         SWAP A(j, iy), A(j, 2)
       NEXT
        ' Вывод матрицы
       FOR iy2 = 1 TO n: FOR ix2 = 1 TO m
          IF iy2 = 2 OR iy2 = iy THEN COLOR 10 ELSE COLOR 7
          PRINT A(ix2, iy2);
       NEXT: PRINT : NEXT
       END
    END IF
  NEXT: NEXT
PRINT "Stroka s elementom = 34 ne naidena!"

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

Задаются и сохраняются в переменных m и n количество строк и столбцов матрицы соответственно.
Матрица A(m, n) заполняется случайными целыми числами от 0 до 50.
На экран выводится сообщение об успешном нахождении строки с элементом равным 34.
Строка с элементом равным 34 меняется местами со второй строкой.
Выводится матрица с измененной строкой.
Если строка с элементом равным 34 не найдена, выводится соответствующее сообщение.