Массив: Найти сумму трех минимальных из массива двузначных чисел - VB

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

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

Дан массив из десяти целых двузначных чисел. Найти сумму трех минимальных из них

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

textual
Листинг программы
Function Sum3Min1(arr() As Long) As Long 'массив arr должен быть определен как arr(1 to n)
    Dim i As Long, j As Long, tmp As Long, a() As Long
    a = arr
    For i = 1 To 3
        For j = i + 1 To UBound(a)
            If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
    Next j, i
    Sum3Min1 = a(1) + a(2) + a(3)
End Function

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

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