Отсортировать элементы массива по убыванию методом выбора

@Bramblelol · Регистрация: 22.04.2014

Author24 — интернет-сервис помощи студентам

Дан целочисленный массив с элементами от -20 до 20.Отсортировать по убыванию элементы массива удовлетворяющих условию{a}{i}<5 методом выбора

@Alex77755 · 17.02.2015, 17:00

А самому хотя бы попробовать влом?
Изучай примеры. Пробуй. Будут конкретные вопросы - задавай:
Массивы. Обьявление массивов. Сортировка массивов

@Catstail · 17.02.2015, 20:05

Простой вариант сортировки выбором:

Visual Basic

Sub VSort(A() As Integer)
    n% = UBound(A, 1)
    For i% = 1 To n% - 1
        Min% = A(i%)
        imin% = i%
        For j% = i% + 1 To n%
            If A(j%) < Min% Then
               Min% = A(j%)
               imin% = j%
            End If
        Next j%
        A(imin%) = A(i%)
        A(i%) = Min%
    Next i%
End Sub
 
 
Sub Test()
Dim X(1 To 20) As Integer
    
    Randomize
    
    For i% = 1 To 20
        X(i%) = 5 * Rnd
    Next i%
    
    VSort X
    
    For i% = 1 To 20
        Debug.Print X(i%)
    Next i%
End Sub

@Bramblelol 0 / 0 / 0 Регистрация: 22.04.2014 Сообщений: 27
		1
	Отсортировать элементы массива по убыванию методом выбора 17.02.2015, 15:13. Показов 705. Ответов 2 Метки нет (Все метки) Дан целочисленный массив с элементами от -20 до 20.Отсортировать по убыванию элементы массива удовлетворяющих условию{a}{i}<5 методом выбора 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	17.02.2015, 17:00	2
	А самому хотя бы попробовать влом? Изучай примеры. Пробуй. Будут конкретные вопросы - задавай: Массивы. Обьявление массивов. Сортировка массивов 0

	17.02.2015, 20:05