Написать программу в ВБА найти сумму и произведение отрицательных чисел выведенных с клавиатуры.Всего ввести н различных чисел

Для написания программы на языке VBA (Visual Basic for Applications) для поиска суммы и произведения отрицательных чисел, введенных с клавиатуры, вам потребуется следующий код: ```vba Sub Поиск_Суммы_и_Произведения() Dim i As Integer Dim число As Double Dim сумма_отрицательных As Double Dim произведение_отрицательных As Double сумма_отрицательных = 0 произведение_отрицательных = 1 n = InputBox("Введите количество различных чисел:") For i = 1 To n число = InputBox("Введите число:") If число < 0 Then сумма_отрицательных = сумма_отрицательных + число произведение_отрицательных = произведение_отрицательных * число End If Next i MsgBox "Сумма отрицательных чисел: " & сумма_отрицательных & vbCrLf & "Произведение отрицательных чисел: " & произведение_отрицательных End Sub ``` Этот код запрашивает у пользователя количество различных чисел, затем позволяет вводить числа с клавиатуры. Программа находит сумму и произведение только отрицательных чисел, введенных пользователем.