'Написать программу поиска минимального значения среди трех элементов z,y,t
'для 10 произвольно заданных значений  х.
Type a
    x As Double
    z As Double
    y As Double
    t As Double
End Type

Sub Var25task3()
    Dim i As Integer, ara( 9 ) As a, minValue As Double
    For i =  0  To  9 
        ara(i).x = Val(InputBox("значение X номер " & i +  1 , "Ввод исходных данных"))
        ara(i).t = ara(i).x + Exp(ara(i).x)
        ara(i).y = Exp(-ara(i).x) * Sin(ara(i).x)
        ara(i).z = Log(Abs(ara(i).x +  1 #)) * Cos(ara(i).x)

        If i =  0  Then minValue = ara(i).t
        If ara(i).t < minValue Then minValue = ara(i).t
        If ara(i).y < minValue Then minValue = ara(i).y
        If ara(i).z < minValue Then minValue = ara(i).z
    Next
    MsgBox "minValue = " & minValue
End Sub