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

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