Последовательность из 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

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


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

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

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