Дан одномерный массив А размерности N.Поменять местами его минимальный и максимальный значения элементов.
Дан одномерный массив А размерности N.Поменять местами его минимальный и максимальный значения элементов.
Гость
Ответ(ы) на вопрос:
ГостьDim i As Integer
Dim min As Integer
Dim max As Integer
Dim N As Integer
N = CInt(InputBox("Введите N"))
Dim A(N) As Integer
min = 0
max = 0
For i = 0 To N
If A(i) < A(min) Then min = i
If A(i) < A(max) Then max = i
Next
i = A(min)
A(min) = A(max)
A(max) = i
Не нашли ответ?
Похожие вопросы