По какой-то причине, всё время указывает номер "9" последнего отрицательного числа, хотя тут вообще всего 8 чисел. Вот решение:
Sub n13()
Dim i As Double, A(1 To 8) As Double, min As Double
For i = 1 To 8
A(i) = InputBox("Введите число, элемент массива:")
Next
min = A(1)
For i = 1 To 8
If A(i) < min Then
min = A(i)
End If
Next
If min < 0 Then
MsgBox ("Значение = " & min & ", номер = " & i)
End If
End Sub
Вот исправленное решение, не то искал. В любом случае, как теперь сделать так, чтобы выводилось только последнее отрицательное?
Sub n12()
Dim i As Double, A(1 To 8) As Double, z As Double
For i = 1 To 8
A(i) = Cells(i, 1)
If A(i) < 0 Then
MsgBox ("Значение = " & A(i) & ", номер = " & i)
End If
Next
End Sub
i = 8
счетчик увеличивается на единицу (i =9
), цикл идет к следующему шагу... и тут понимает, что нужно уходить :)