Двумерные массивы в visual basic - VB (170045)

CLS
RANDOMIZE TIMER
CONST n = 5
CONST m = 3
REDIM A(n, m) AS INTEGER
REDIM K(n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   A(i, j) = 40 * RND - 20
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO m
   S = S + A(i, j)
NEXT j, i
 
SA = S / (n * m)
PRINT "SA ="; SA
 
FOR i = 2 TO n STEP 2
FOR j = 1 TO m
    IF A(i, j) > SA THEN K(i) = K(i) + 1
NEXT j
NEXT i
 
FOR i = 2 TO n STEP 2
   PRINT K(i);
NEXT