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

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

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

Код к задаче: «Найти 2 минимальных элемента массива - VB»

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


СОХРАНИТЬ ССЫЛКУ