Найти наибольший и наименьший элементы одномерного массива R7 размерности М

Задача 1

Найти наибольший и наименьший элементы одномерного массива  R7 размерности М. Найденные элементы поменять местами. Проанализировать выполнение программы на примере :

R7={ 3; 2; 7; 2; 1; 9; 1; 6; 5}

Решение

1) Найти наибольший и наименьший элементы одномерного массива  R7 размерности М. Найденные элементы поменять местами.

2) Входные и выходные данные

Входные			Выходные
Имя	Тип	Примечание	Имя	Тип	Примечание
M	целое	размерность матрицы	R7	целое	матрица R7*
R7()	целое	Элемент матрицы R7

3) Математическая модель

R7={ 3; 2; 7; 2; 1; 9; 1; 6; 5}

4) Блок-схема алгоритма

5) Программа

Private Sub Command1_Click()

Dim i As Integer, k As Integer, q As Integer, min As Integer, max As Integer, x As Integer, R7() As Integer, S As String

m = Val(InputBox("Введите размерность массивa R7"))

ReDim R7(1 To m)

For i = 1 To m

R7(i) = Val(InputBox("Значение элемента R7(" & i & ") равно "))

Next

Print "Исходный массив"

For i = 1 To m

Print R7(i);

Next

min = MINIM(R7)

max = MAXIM(R7)

Obmen min, max

Print "Значения элементов матрицы R7: "

Вывод R7(), S

Print S

End Sub

Private Function MINIM(V As Variant)

Dim min As Integer, k As Integer, i As Integer

min = V(1)

k = 1

For i = 1 To UBound(V)

If V(i) <= min Then

min = V(i)

k = i

End If

Next

Print vbNewLine & "Наименьший элемент массива " & V(k)

End Function

Private Function MAXIM(V As Variant)

Dim min As Integer, k As Integer, i As Integer

max = V(1)

q = 1

For i = 1 To UBound(V)

If V(i) >= max Then

max = V(i)

q = i

End If

Next

Print "Наибольший элемент массива " & V(q)

End Function

Private Sub Obmen(a As Variant, b As Variant)

Dim t As Variant

t = a

a = b

b = t

End Sub

Private Sub Вывод(V As Variant, S As Variant)

Dim i As Integer

S = " "

For i = LBound(V) To UBound(V)

S = S & V(i) & "  "

Next

End Sub

6) Пример выполнения