Максимальный элемент массива поменять местами с четвертым.

[Katie]

У меня зачача:
Максимальный элемент массива поменять местами с четвертым.

Вот такую задачу мы делали на паре:
Дан входной одномерный масив.Выходной массив получить, поменяв во входящем массиве первый и последний элементы местами и вывести оба массива-входной и выходной в рабочий лист.

Private Sub CommandButton1_Click()
n=InputBox("Vvedite kolichestvo elementov n")
ReDim A(n)
For i=1 to n
A(i)=InputBox("Vvedite a("& i &")")
Next i
For i=1 to n
Cells(2,i).Value=A(i)
Next i
Cells(1,1)="Vhodnoj"
Cells(1,2)="Massiv"
Cells(1,3)="Vuhodnoj"
Cells(3,2)="Massiv"
Amax=A(1):Amin=A(1)
Nmax=1:Nmin=1
For i=2 to n
If Amax<A(i) Then
Amax=A(i):Nmax=i
If Amin>A(i) Then
Amin=A(i):Nmin=i
Next i
A(Nmax)=Amin
A(Nmin)=Amax
Fot i=1 to n
Cells(4,i).Value=A(i)
Next i
End Sub

Буду очень благодарна за помощь!!!

[val_nnm]

Ну поидее вот так:

Private Sub CommandButton1_Click()
  n=InputBox("Vvedite kolichestvo elementov n")
  ReDim A(n)
  For i=1 to n
    A(i)=InputBox("Vvedite a("& i &")")
  Next i
  For i=1 to n
    Cells(2,i).Value=A(i)
  Next i
  Cells(1,1)="Vhodnoj"
  Cells(1,2)="Massiv"
  Cells(1,3)="Vuhodnoj"
  Cells(3,2)="Massiv"
  Amax=A(1)
  Nmax=1
  For i=2 to n
    If Amax<A(i) Then
    Amax=A(i):Nmax=i
  Next i
  A(Nmax)=A(4)
  A(4)=Amax
  Fot i=1 to n
    Cells(4,i).Value=A(i)
  Next i
End Sub

[Sasha_Smirnov]

А на деле так!

Option Base 1 'зададим, для удобства, индексацию элементов с 1 (а не с 0)'
Option Explicit
Dim n

Sub Button1_Click()
Dim A(), i, Amax, Nmax
  n = InputBox("Введите количество элементов массива.", Date, n)
    If IsNumeric(n) Then
        If Abs(n) >= 4 Then
            ReDim A(Abs(Fix(n)))
        Else
            MsgBox "Это должно быть число не меньше 4.": Exit Sub
        End If
    Else
        MsgBox "Это должно быть число.":        Exit Sub
    End If
  
  For i = 1 To n: A(i) = Val(InputBox("Элемент № " & i & " = ?", i & "-й", Int(Rnd * 30) - 15)): Next
  
  Cells(1, 1) = "Входной массив":  Cells(1, 4) = "Выходной массив"
  For i = 1 To n: Cells(i + 1, 1).Value = A(i): Next
  
  
        Amax = A(1):      Nmax = 1
        
    For i = 2 To n
      If A(i) > Amax Then Nmax = i: Amax = A(Nmax)
      MsgBox "Nmax = " & Nmax & vbCr & "Amax = " & Amax & vbCr & _
      "Здесь с " & Amax & " сравнивается " & i & "-й элемент, равный " & A(i) & "."
    Next i

    A(Nmax) = A(4): A(4) = Amax           'на место максимального ставим 4-й элемент; и наоборот'
  
  For i = 1 To n: Cells(i + 1, 4).Select: Selection.Value = A(i): Next i 'печать нового массива'
  Cells(i, 5).Select
    Button1.Caption = "Washing..."
    SendKeys "^+{home}" 'выделение напечатанного (аналог нажатия Ctrl+Shift+Home) - для удобного стирания'
End Sub