Найти минимум из 8 чисел(найти минимум из 2х чисел)

[STIFLER32]

Собственно задание таково:Найти минимум из 8 чисел(найти минимум из 2х чисел)
пытался написать сам, забраковали первую часть программы...поможет кто более опытный?буду очень благодарен!

[@лeся]

видела на другом форуме

Sub f()
Dim n As Integer, i As Integer
Dim max As Double, min As Double
n = InputBox("Введите количество элементов массива", "Ввод")
max = 1
min = 1
ReDim mas(1 To n) As Double
For i = 1 To n
mas(i) = InputBox("Введите элемент <" & i & ">", "Ввод")
max = mas(i)
min = mas(i)
Next
For i = 1 To n
If mas(i) > max Then
max = mas(i)
End If
Next i
For i = 1 To n
If mas(i) < min Then
min = mas(i)
End If
Next i
MsgBox "max = " & max & " min = " & min, 64, "Ответ"
End Sub