Образовать новую последовательность, выбросив из исходной те члены, которые равны min {a1, a2, ..., аn} - VB

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

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

Дана последовательность целых чисел a1, a2, ..., аn. Образо¬вать новую последовательность, выбросив из исходной те члены, которые равны min {a1, a2, ..., аn}. кто умеет,помогите,пожалуйста!

Решение задачи: «Образовать новую последовательность, выбросив из исходной те члены, которые равны min {a1, a2, ..., аn}»

textual
Листинг программы
Option Explicit
 
Private Function prim$()
    Const c = 10
    Dim j$(), f&, l&
 
    '-----------------------------------------------Создаём последовательность
    Randomize Timer
    For f = 0 To c - 1
        prim = prim & " " & Fix(100 + Rnd * 100)
    Next
    j = Split(Mid$(prim, 2))
    l = 2 ^ 31 - 1
    For f = 0 To UBound(j)
        If j(f) < l Then l = j(f)
    Next
    '----------------------------------------------Выбрасываем все минимальные значения
    prim = "Вся последовательность Array = {" & Join(j, ",") & "}" & vbCrLf
    j = Filter(j, l, False)
    prim = prim & "Выбразываем все Min = {" & l & "}" & vbCrLf
    prim = prim & "Последовательность без min Array = {" & Join(j, ",") & "}" & vbCrLf
    
End Function
 
Private Sub Form_Load()
    MsgBox prim
    End
End Sub

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


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

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

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