Дан массив, состоящий из 8 элементов. Вычислить сумму положительных элементов массива. VBA.

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

Sub SumPositive()
Dim a(1 To 8) As Double
Dim i As Integer
Dim s As Double
s = 0
For i = 1 To 8
    a(i) = CDbl(InputBox("Введите элемент массива"))
    If a(i) > 0 Then s = s + a(i)
Next i
MsgBox "Сумма положительных элементов = " & s
End Sub

Здесь переменная s хранит сумму. Цикл просматривает все 8 элементов массива и прибавляет только те, которые больше нуля.

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