Выбрать 3 наибольших числа в массиве

@capetownn · Регистрация: 26.10.2012

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

Помогите.
в массиве 11 ЦЕЛЫХ ЧИСЕЛ, каждое из которых > 0
Выбрать 3 наибольших и их вывести в порядке убывания.

Приведенный код выводит 100, 13 и 11, а должно быть 100, 13 и 12

VB.NET

Dim A(11) As Integer
A = {100, 6, 12, 5, 2, 11, 3, 1, 4, 9, 13} '")
Dim max1 As Integer
        Dim max2 As Integer
        Dim max3 As Integer
        'max1 = A(0) ' присваиваю значение 0-го элемента массива
        max1 = 0
        max2 = 0
        max3 = 0
For i% = 0 To 10  
        If A(i%) > max1 Then 
                max1 = A(i%) 
                i% += 1
                Continue For
        ElseIf A(i%) > max2 Then
                max2 = A(i%)
                i% += 1
                Continue For
        ElseIf A(i%) > max3 Then
                max3 = A(i%)
        End If
Next i%

@~~Апострофф~~ · 29.10.2012, 17:29

А так?

VB.NET

For i% = 0 To 10  
        If A(i%) > max1 Then 
                max3=max2
                max2=max1
                max1 = A(i%) 
                i% += 1
                Continue For
        ElseIf A(i%) > max2 Then
                max3=max2
                max2 = A(i%)
                i% += 1
                Continue For
        ElseIf A(i%) > max3 Then
                max3 = A(i%)
        End If
Next i%

@kritjara · 29.10.2012, 17:44

Апострофф прав

делая каждый шаг, A(i) уже не используется в дальнейшем
когда тебе 13 надо перенести в max2, то 12 должно перейти в max3, а у тебя этого не происходит

Памирыч · 29.10.2012, 17:51

Если преподаватель разрешает использовать "встроенную" сортировку, то

VB.NET

1
2
3

        Dim A() As Integer = {100, 6, 12, 5, 2, 11, 3, 1, 4, 9, 13}
        Array.Sort(A)
        MsgBox("Max: " & A(A.Length - 1) & ", " & A(A.Length - 2) & ", " & A(A.Length - 3))

@kritjara 69 / 59 / 15 Регистрация: 22.10.2012 Сообщений: 314
	29.10.2012, 17:44	3
	Апострофф прав делая каждый шаг, A(i) уже не используется в дальнейшем когда тебе 13 надо перенести в max2, то 12 должно перейти в max3, а у тебя этого не происходит 0

	29.10.2012, 17:51

Опции темы