Найти среднее арифметическое Z матрицы B - QBasic

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

Прошу помощи в написании этой программы в QBasic...(((

"Дана матрица B(6x7). Найти среднее арифметическое Z матрицы B. Прибавить полученное среднее арифметическое к элементам 3-й строки матрицы. Найти вектор, составленный из минимальных элементов по столбцам."

Решение задачи: «Найти среднее арифметическое Z матрицы B»

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

CLS
n = 6
m = 7
DIM b(1 TO n, 1 TO m), c(1 TO n)
FOR i = 1 TO n
FOR j = 1 TO m
b(i, j) = INT(RND * 100 - 50)
PRINT b(i, j);
NEXT j
PRINT
NEXT i
'нахождение среднего арифметич
s = 0
FOR i = 1 TO n
FOR j = 1 TO m
s = s + b(i, j)
NEXT j
NEXT i
sr = s / (n * m)
PRINT "Среднее="; sr
'прибавляем среднее к элемментам 3 строки
FOR j = 1 TO n
b(3, j) = b(3, j) + sr
NEXT j
PRINT "Матрица после прибавления"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT b(i, j);
NEXT j
PRINT
NEXT i
FOR i = 1 TO n
min = 10 ^ 10
FOR j = 1 TO m
IF b(i, j) <= min THEN min = b(i, j)
NEXT j
c(i) = min
NEXT i
PRINT "Вектор"
FOR i = 1 TO n
PRINT c(i);
NEXT i

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

Задаются размеры матрицы n и m (строка 2).
Создается матрица b (строка 3) и вектор c (строка 19) размером n.
В цикле заполняются ячейки матрицы b случайными числами от -50 до 50 (строка 4).
Вычисляется сумма элементов матрицы b в цикле (строка 14).
Находится среднее арифметическое матрицы b (строка 15).
В цикле прибавляется среднее арифметическое к элементам 3-й строки матрицы b (строка 16).
Выводится матрица b до и после прибавления (строки 17-18).
В цикле вычисляются минимальные значения в каждой строке матрицы b (строка 20).
Минимальные значения записываются в вектор c (строка 21).
Выводится вектор c (строка 22).