Найти минимальный элемент одномерного массива и его номер в массиве - VB

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

Господа, помогите решить задачку на VBasic: Найти минимальный элемент одномерного массива и его номер в массиве.Для формирования массива использовать датчик сучайных чисел.Диапазон случайных чисел;от(-100)до +100 А то в инсте дали задание, а я ни в зуб ногой...

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

textual
                            Листинг программы 
                        
                            Sub aaa()
 
Dim arr(1 To 10000)
 
For i = 1 To 10000
 
arr(i) = Rnd(1) * 200 - 100
 
Next i
 
Min = arr(1)
 
k = 1
 
For i = 2 To 10000
 
If Min > arr(i) Then
 
    Min = arr(i)
 
    k = i
 
End If
 
Next i
 
MsgBox CStr(Min) & ", " & CStr(k)
 
End Sub

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

13 голосов , оценка 3.846 из 5

Похожие ответы