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