Question

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элемента. Задача в VBA

Answer 1

Sub abc()

   Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer

   n = 15

   ReDim a(1 To n) As Integer

       For i = 1 To n

       a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")

   Next i

   aMax = a(1)

   aMin = a(1)

   For i = 2 To n

       If a(i) > aMax Then aMax = a(i)

       If a(i) < aMin Then aMin = a(i)

   Next i

   MsgBox "Сумма max+min =" & Str(aMax + aMin) & _

       "  их разность =" & Str(aMax - aMin)

End Sub

Answer 2

Вот пример решения задачи на VBA:

vbaCopy code
Sub CalculateMinMaxSum()
    Dim arr(1 To 15) As Integer
    Dim i As Integer
    Dim minValue As Integer
    Dim maxValue As Integer
    Dim sumValue As Integer
    
    ' Ввод значений массива
    For i = 1 To 15
        arr(i) = InputBox("Введите элемент массива " & i & ":")
    Next i
    
    ' Инициализация переменных
    minValue = arr(1)
    maxValue = arr(1)
    sumValue = 0
    
    ' Поиск минимального, максимального элемента и суммы
    For i = 1 To 15
        If arr(i) < minValue Then
            minValue = arr(i)
        End If
        If arr(i) > maxValue Then
            maxValue = arr(i)
        End If
        sumValue = sumValue + arr(i)
    Next i
    
    ' Вывод результатов
    MsgBox "Минимальный элемент: " & minValue & vbCrLf & _
           "Максимальный элемент: " & maxValue & vbCrLf & _
           "Сумма элементов: " & sumValue & vbCrLf & _
           "Разность максимального и минимального элементов: " & maxValue - minValue
End Sub

Этот код позволяет пользователю ввести 15 элементов массива. Затем он находит минимальный, максимальный элементы и сумму всех элементов, а также вычисляет разность между максимальным и минимальным элементами. Результат выводится в сообщении MsgBox.

Примечание: В этом примере я использую массив arr размером 15 элементов, нумерация начинается с 1 и идет до 15. Вы можете изменить размер массива и диапазон нумерации элементов в соответствии с вашими требованиями.