Найти минимальный элемент одномерного массива и его номер в массиве - 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