vba

Sub Modul()
    Const countElement As Integer = 12

    MsgBox ((1 + 2) / 2)

    Dim Massiv(countElement) As Integer

    For i = 0 To countElement
        Massiv(i) = InputBox("Значение " & i & " элемента")
        Next i

    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("Введите С")

    If sum Mod C = 0 Then
        Dim maxElement As Integer

        maxElement = Massiv(0)

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

        Next i

        For i = 0 To countElement
            If Massiv(i) - C Mod (i + 1) Then Massiv(i) = maxElement
        Next i
    Else
        Dim min, max As Integer

        min = max = Massiv(0)

        For i = 0 To countElement
            If min > Massiv(i) Then min = Massiv(i)
            If max < Massiv(i) Then max = Massiv(i)
        Next i

        Dim polusum As Integer
        polusum = (min + max) / 2

        For i = 0 To countElement
            If i Mod 2 = 1 Then Massiv(i) = polusum
        End
    End If