Найти максимальный и минимальный - VB

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

Действительную матрицу А[n x n] заполнить случайными числами из диапазона [-6;5]. Найти максимальный и минимальный элементы в заштрихованной области,(выше главной диагонали, не считая элементы на главной диагонали). найденные элементы вывести с подчеркиванием

Решение задачи: «Найти максимальный и минимальный»

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

                            CLS
RANDOMIZE TIMER
 
n = 7   ' Число N введите любым способом
 
REDIM A(n, n) AS LONG
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 11 * RND - 6
   PRINT A(i, j);
NEXT: PRINT
NEXT: PRINT
 
max = A(1, 1)
min = max
imax = 1
jmax = 1
imin = 1
jmin = 1
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF i < j THEN
      IF max < A(i, j) THEN
         max = A(i, j)
         imax = i
         jmax = j
      END IF
 
      IF min > A(i, j) THEN
         min = A(i, j)
         imin = i
         jmin = j
      END IF
   END IF
NEXT j, i
 
PRINT max; imax; jmax
PRINT min; imin; jmin
                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы