Найти три наименьших элемента массива - VB (60284)

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

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

Найти три наименьших элемента массива:Z={4;-2;17;8;-3;7;0;1;5;-12;-11;-4;9} и указать их индексы Сделайте пожалуйста кто сможет,буду очень благодарен!

Решение задачи: «Найти три наименьших элемента массива»

textual
Листинг программы
Sub min3(A() As Integer)
    i1% = 1
    i2% = 1
    i3% = 1
    For i% = 2 To UBound(A, 1)
        If A(i%) < A(i1%) Then
           i2% = i1%
           i3% = i2%
           i1% = i%
        ElseIf A(i%) < A(i2%) Then
           i3% = i2%
           i2% = i%
        ElseIf A(i%) < A(i3%) Then
           i3% = i%
        End If
    Next i%
    Debug.Print "A("; i1%; ")="; A(i1%)
    Debug.Print "A("; i2%; ")="; A(i2%)
    Debug.Print "A("; i3%; ")="; A(i3%)
End Sub
 
 
Sub test()
Dim Arr(1 To 13) As Integer
    For i% = 0 To 12
        Arr(i% + 1) = Array(4, -2, -17, 8, -3, 7, 0, 1, 5, -12, -11, -4, 9)(i%)
    Next i%
    min3 Arr
End Sub

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


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

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

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