Найти минимальный элемент одномерного массива и его номер в массиве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
