Вопрос №37. Алгоритм поиска минимального и максимального элементов одномерного и двумерного массива.
Нахождение max и min (шаблон)
Max = x(I):p=I
Min = x(I):t=I
For I to n
If x(I)>Max Then
                            Max=x(I)
                            P=I
If x(I)<Min Then
                             Min=X(I)
                             T=I
End If

ПРИМЕР
Option Base 1
Const n = 4
Const m = 4
Dim A(n, m) As Integer
Public Sub MaxMin()
Max = A(1, 1): P = i: T = i
Min = A(1, i): p1 = i: t1 = i
For i = 1 To n
For j = 1 To m
If A(i, j) > Max And i = о Then
                            Max = A(i, j)
                            P = i
                            T = j
                            End If
If A(i, j) < Min And i + j = n + 1 Then
                             Min = A(i, j)
                             p1 = i
                             t1 = j
End If
Next i
Next j
Q = A(P, T)
A(P, T) = A(p1, t1)
A(p1, t1) = Q
For i = 1 To n
For j = 1 To m
Cells(i + 9, j) = A(i, j)
Next i
Next j
End Sub