Дан диапазон из 15 элементов. Найти суммы положительных и отрицательных элементов этого диапазона. Язык - Vba.

Предыдущий
вопрос Следующий
вопрос

Для нахождения сумм положительных и отрицательных элементов диапазона из 15 элементов в VBA можно воспользоваться следующим кодом:

Sub FindSumOfPositiveAndNegative()
Dim arr(1 To 15) As Integer
Dim i As Integer
Dim sumPositive As Integer
Dim sumNegative As Integer
' Заполнение массива случайными значениями
Randomize
For i = 1 To 15
arr(i) = Int((100 - (-100) + 1) * Rnd + (-100))
Next i
' Вычисление сумм положительных и отрицательных элементов
For i = 1 To 15
If arr(i) > 0 Then
sumPositive = sumPositive + arr(i)
ElseIf arr(i) < 0 Then
sumNegative = sumNegative + arr(i)
End If
Next i
' Вывод результатов
MsgBox "Сумма положительных элементов: " & sumPositive & vbCrLf & "Сумма отрицательных элементов: " & sumNegative
End Sub

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