Sub Modul()
    Const countElement As Integer = 12

    Dim Massiv(countElement) As Integer

    For i = 0 To countElement
        Massiv(i) = InputBox("Cia?aiea " & i & " yeaiaioa")
        Next i

    Dim strMas As String

    For i = 0 To countElement
        strMas = strMas & " " & Massiv(i)
    Next i

    MsgBox (strMas)
    straMas = ""

    Dim sum As Double

    sum = 0

    For i = 0 To countElment
        sum = sum + Massiv(i)
        Next i

    sum = sum / countElement
    MsgBox (sum)

    Dim C As Integer
    C = InputBox("Aaaaeoa N")

    If sum < C Then
        Dim indexMax As Integer
        indexMax = 0

        For i = 1 To countElement
            If Massiv(indexMax) < Massiv(i) Then indexMax = i
        Next i

        Dim sim As Double
        Dim mul As Double
        sum = 0
        mul = 1

        For i = 0 To countElement
            sum = sum + Massiv(i)
            mul = mul * Massiv(i)
        Next i

        sum = sum / countElement
        mul = mul ^ (1# / countElement)

        Massiv(indexMax) = (sum + mul) / 2
    Else
        Dim min As Double

        min = Massiv(0)

        For i = 1 To countElement
            If min > Massiv(i) Then min = Massiv(i)
        Next i

        Dim summa As Double

        For i = 0 To countElement
            If ((Massiv(i) + min) / 2) Mod 2 = 0 Then summa = summa + Massiv(i)
        Next i

        For i = 0 To countElement
            If (i + 1) Mod 3 = 0 Then Massiv(i) = summa

        Next i

    End If


End Sub