Найти наибольшее наименьшее значение массива, поменять их местами

@dibenko · Регистрация: 26.04.2015

Author24 — интернет-сервис помощи студентам

найти наибольшее и наименьшее значение массива, поменять их местами.
наибольшее и наименьшее нашел, не могу поменять их местами

Visual Basic

Sub massiv()
Dim a() As Integer
Dim i As Integer
Dim max As Integer
Dim min As Integer
Dim n As Integer
    Randomize
n = Val(InputBox("ââåäèòå n"))
ReDim a(1 To n)
For i = 1 To n
a(i) = Rnd * 15 + 2
Next i
max = a(1)
k = 1
For i = 2 To n
    If a(i) > max Then
        max = a(i)
        k = i
        End If
Next i
 For i1 = 2 To n
    If a(i1) < min Then
        min = a(i1)
        k1 = i1
        End If
Next i1
    c = a(k)
    a(k) = a(k1)
    a(k1) = c
        Range("A6") = "max" & max
        Range("B6") = "min" & min
        Range("A7") = "k=" & k
        Range("B7") = "k1" & k1
        Range("B9") = "c=" & c
End Sub

@REDler · 26.05.2015, 13:35

Через дополнительную переменную можно)

buff=min
min=max
max=buff

@REDler 7 / 7 / 9 Регистрация: 17.04.2015 Сообщений: 11
	26.05.2015, 13:35	2
	Сообщение было отмечено Sasha_Smirnov как решение Решение Через дополнительную переменную можно) buff=min min=max max=buff 1

Найти наибольшее наименьшее значение массива, поменять их местами

Решение