Поменять местами минимальный нечетный элемент массива с последним - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д