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

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

Задана матрица размером nxm, при этом n=5 m=3. Вычислить среднее значение матрицы A, определить и напечатать число элементов в строках матрицы, имеющих четные номера, значения которых превышает найденное среднее значение.

Решение задачи: «Двумерные массивы в visual basic»

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

                            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
                        