Напишите программу на VBA, которая меняет местами минимальный и последний элемент массива целых чисел.

Пример программы на VBA:

Sub SwapMinAndLast()
    Dim a(1 To 10) As Integer
    Dim i As Integer
    Dim minIndex As Integer
    Dim temp As Integer

    ' Ввод элементов массива
    For i = 1 To 10
        a(i) = InputBox("Введите элемент массива")
    Next i

    ' Поиск минимального элемента
    minIndex = 1
    For i = 2 To 10
        If a(i) < a(minIndex) Then
            minIndex = i
        End If
    Next i

    ' Обмен минимального и последнего элемента
    temp = a(minIndex)
    a(minIndex) = a(10)
    a(10) = temp

    ' Вывод результата
    For i = 1 To 10
        MsgBox a(i)
    Next i
End Sub

Программа сначала находит номер минимального элемента, затем меняет этот элемент местами с последним элементом массива.

0 0 Пожаловаться