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

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

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

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ