Сложение строк массива - QBasic

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

Создать массив, затем сложить к-ю и (к+1) Строки этого массива и сформировать новый массив размером (n-1) x m. И создать блок-схему к этой задаче

k= 6, например

Решение задачи: «Сложение строк массива»

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

DEFINT A-B, I-K, M-N
OPTION BASE 1
CLS
100
INPUT "Vvedite N >= 7 "; n
IF n < 7 THEN 100
INPUT "Vvedite M"; m
DIM a(n, m)
DIM b(n - 1, m)
 
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 21 * RND - 10.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
PRINT
FOR i = 1 TO n - 1
   FOR j = 1 TO m
      IF i < 6 THEN
         b(i, j) = a(i, j)
      ELSEIF i = 6 THEN
         b(i, j) = a(i, j) + a(i + 1, j)
      ELSE
         b(i, j) = a(i + 1, j)
      END IF
      PRINT USING "####"; b(i, j);
   NEXT j
   PRINT
NEXT i
END

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

В этом коде выполняется сложение строк массива. Вот список действий, которые происходят в коде:

Ввод значения переменной n (количество строк в массиве).
Ввод значения переменной m (количество столбцов в массиве).
Создание массива a размером n на m.
Создание массива b размером n-1 на m.
Заполнение массива a случайными числами от -10.5 до 21.5.
Вывод значений массива a на экран.
Заполнение массива b значениями из массива a, кроме последней строки.
Вывод значений массива b на экран.