Question

ввести массив из 15 элементов найти наименьший элемент массива VBA элементы нужно вручную вводить(помогите плез сейчас с уника кикнут)

Answer 1

Ответ:

Sub FindMinArray()

Dim arr(1 To 15) As Integer

Dim i As Integer

Dim minValue As Integer

'Enter elements into the array

For i = 1 To 15

arr(i) = InputBox("Enter the value of element " & i)

Next i

'Initialize minimum value with the first element

minValue = arr(1)

'Compare each element with the minimum value

For i = 2 To 15

If arr(i) < minValue Then

minValue = arr(i)

End If

Next i

'Display the minimum value

MsgBox "The minimum value is: " & minValue

End Sub