Поменять местами минимальный нечетный элемент массива с последним - VB

Узнай цену своей работы

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

поменять местами минимальный нечетный элемент массива с последним вот исходный код сортировки

Решение задачи: «Поменять местами минимальный нечетный элемент массива с последним»

textual
Листинг программы
Sub Change_Min_Last()
Dim N As Integer, vArr(), i As Integer, iIndMin As Integer, vTmp
N = InputBox("Array size:")
ReDim vArr(1 To N)
For i = 1 To N
    vArr(i) = Int(Rnd * 50 + 10)
    List1.AddItem vArr(i)
Next
iIndMin = 1
For i = 3 To N Step 2
    If vArr(i) < vArr(iIndMin) Then iIndMin = i
Next
vTmp = vArr(N)
vArr(N) = vArr(iIndMin)
vArr(iIndMin) = vTmp
For i = 1 To N
   List2.AddItem vArr(i)
Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.167 из 5
Похожие ответы