Найти min элемент массива - VB
Формулировка задачи:
Ребята, спасайте
помогите пожалуйста решить задачку
"Найти min элемент массива"
буду ооочень признательна!
Решение задачи: «Найти min элемент массива»
textual
Листинг программы
Private Sub CommandButton1_Click()
Dim N As Integer, i As Integer
Dim a(), min_, k As Integer
N = Val(InputBox("вводим размерность N", , 10))
If N > 0 Then
Cells.Clear
ReDim a(N)
For i = 1 To N
a(i) = Int(Rnd * 200) - 100
Cells(i + 1, 1) = a(i)
Next i
min_ = a(1): k = 1
For i = 2 To N
If min_ > a(i) Then min_ = a(i): k = i
Next i
MsgBox "минимальный элемент: a(" & k & ") = " & min_
Else
MsgBox "N должно быть больше 0"
End If
End Sub