Найти 2 минимальных элемента массива - VB

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

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

помогите пожалуйста... в VB дан массив с от 0 до 10 нужно вывести массив в произвольном порядке и найти 2 минимальных элемента этого массива

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

textual
Листинг программы
min2 = Abs(sourceArray(0)) + Abs(sourceArray(1))
For i = 0 To 10
    If (sourceArray(i) > min1) And (sourceArray(i) < min2) Then min2 = sourceArray(i)
Next i

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

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