В одномерном массиве найти два максимальных элемента и удалить все элементы между ними

08.12.2013, 15:46. **Показов** 1247. **Ответов** 1

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

Есть задача: В одномерном массиве найти два максимальных элемента и удалить все элементы между ними.
Массив у меня задается случайным образом, максимальные элементы нахожу, но вот как удалить элементы между ними ума не приложу как только не пробовал, элементы записаны в ЭУ ListBox

Задание массива

Visual Basic

Private Sub Задать_Click()
max1 = 0
max2 = 0
If Text1.Text = "" Then GoTo 10
razm1 = CInt(Text1.Text)
ReDim a(razm1) As Long
For i = 1 To razm1
a(i) = Round(Rnd() * 10)
Next i
For i = 1 To razm1
List1.AddItem a(i)
Next i
10 End Sub

Первый максимум

Visual Basic

Private Sub Max1_Click()
For i = 1 To razm1
If max1 < a(i) Then max1 = a(i) Else
Next i

Второй максимум

Visual Basic

Private Sub Command1_Click()
For i = 1 To razm1
If max2 < a(i) And a(i) < max1 Then max2 = a(i) Else
Next i
End Sub

Подсобите разработать код для удаления элементов массива, находящихся между двумя максимальными

@Alex77755 · 08.12.2013, 19:09

1. And a(i) < max1 Максимумы могут оказаться равными. Как бать в таком случае? Искать меньшее значение?
2. Для упрощения последующего выполнения зазачи лучше запоминать и позицию максимума
В итоге что-то такое можно...

Кликните здесь для просмотра всего текста

Visual Basic

Option Explicit
Dim A()
Dim Max1, MAX2, razm1, i
Dim N, K, N0, K0
 
Private Sub Задать_Click()
 Max1 = 0
 MAX2 = 0
 Randomize
 If Text1.Text = "" Then:    MsgBox "Не задан размер массива", vbCritical, "": Exit Sub
 razm1 = CInt(Text1.Text)
 ReDim A(razm1)
  List1.Clear
 For i = 1 To razm1
 A(i) = Round(Rnd() * 10)
  List1.AddItem A(i)
 Next i
 M1 = "": P1 = ""
 M2 = "": P2 = ""
 End Sub
 
Private Sub Max1__Click()
 For i = 1 To razm1
    If Max1 < A(i) Then
       Max1 = A(i)
       N = i
    End If
 Next i
 M1 = Max1: P1 = N
End Sub
 
Private Sub Max2__Click()
 For i = 1 To razm1
    If MAX2 < A(i) And i <> N Then
        MAX2 = A(i)
        K = i
    End If
 Next i
 
If N > K Then
    N0 = K: K0 = N
Else
    N0 = N: K0 = K
End If
M2 = MAX2: P2 = K
End Sub
 
Private Sub Результат_Click()
  List2.Clear
 For i = 1 To razm1
    If i <= N0 Or i >= K0 Then
        List2.AddItem A(i)
    End If
 Next i
End Sub

код

Опции темы

В одномерном массиве найти два максимальных элемента и удалить все элементы между ними

Решение