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

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «В одномерном массиве найти два максимальных элемента и удалить все элементы между ними»

textual
Листинг программы
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

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


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

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

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