Последовательность из N числел упорядочить по убыванию - VB
Формулировка задачи:
Пример способа решения:
Задача:Задана последовательность из N числел, упорядочить по убыванию.
Мне надо решить именно тем способом по которому мы решаем...или хотя бы по-другому)
очень прошу помогите)
Решение задачи: «Последовательность из N числел упорядочить по убыванию»
textual
Листинг программы
Dim N, k_min, i, j As Integer
Dim A(5000) As Integer
Dim Min As Single
N = InputBox("Введите N")
Randomize
For i = 0 To N
A(i) = Int(Rnd * 1000)
Next i
For i = 1 To N - 1
Min = A(i)
k_min = i
For j = i + 1 To N
If A(j) > Min Then
Min = A(j)
k_min = j
End If
Next j
A(k_min) = A(i)
A(i) = Min
List1.AddItem A(i)
Next i