помогите написать алгоритм в basice

DIM a(100, 100) As Double
DIM b(100) As Double
DIM n As Integer, m As Integer, s As Double, max As Double, k As Integer
PRINT "n = "; : INPUT n
PRINT "m = "; : INPUT m
s = 0
FOR i = 1 TO n
FOR j = 1 TO m
PRINT "a(i, j) = "; : INPUT a(i, j)
s = s + a(i, j)
NEXT j
PRINT
NEXT i
s = s / (m * n)
max = a(1, 1) : k = 0
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) > max THEN max = a(i, j)
IF (a(i, j) > 5) AND (a(i, j) < 12) THEN k = k + 1: b(k) = a(i, j)
NEXT j
NEXT i
PRINT
PRINT "s= "; s, "max= "; max
PRINT "vector"
FOR i = 1 TO k
PRINT "b("; i; ") = "; b(i)
NEXT i
END

Функции RANDOMIZE и RND здесь вообще не нужны.

DIM a(100, 100)
DIM b(100)
PRINT "n, m = ";
INPUT n, m
RANDOMIZE (100)
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(20 * RND(1))
PRINT a(i, j),
s = s + a(i, j)
NEXT j
PRINT
NEXT i
s = s / (m * n)
max = a(1, 1)
k = 0
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) > max THEN max = a(i, j)
IF (a(i, j) > 5) AND (a(i, j) < 12) THEN k = k + 1: b(k) = a(i, j)
NEXT j
NEXT i
PRINT
PRINT "s= "; s, "max= "; max
PRINT "vector"
FOR i = 1 TO k
PRINT "b("; i; ")= "; b(i)
NEXT i
END

стучи в агент