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

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

Задана матрица размером nxm, при этом n=4 m=6. Найти максимальное значение среди первых элементов строк, напечатать этот элемент и его номер, осуществить перестановку соответствующих по j элементов второй строки и строки, имеющей максимальный по значению первый элемент, напечатать элементы преобразованной матрицы.

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

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

                            CLS
RANDOMIZE TIMER
n = 4
m = 6
 
REDIM x(n, m) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   x(i, j) = 40 * RND - 20
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
max = x(1, 1)
imax = 1
 
FOR i = 1 TO n
   IF max < x(i, 1) THEN
      max = x(i, 1)
      imax = i
   END IF
NEXT
 
PRINT "MAX ="; max; "Imax ="; imax
PRINT
 
FOR j = 1 TO m
   p = x(2, j)
   x(2, j) = x(imax, j)
   x(imax, j) = p
NEXT j
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT x(i, j);
NEXT: PRINT
NEXT
                        