Образовать новую последовательность, выбросив из исходной те члены, которые равны 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д