Написать программу для вычисления только положительных элементов массива - VBA

Формулировка задачи:

В массиве записаны пять чисел: 8,-9,4,-5,3. Написать программу для вычисления только положительных элементов массива. При этом инициализацию массива (то есть присвоение начальных значений) выполнить через функцию a = Array(8,-9,4,-5,3). Здесь счет элементов массива будет от 0 до 4, т.е. a(0)=8 и т.д.

Решение задачи: «Написать программу для вычисления только положительных элементов массива»

textual
                            Листинг программы 
                        

                            Sub pp()
Dim a, k
a = Array(8, -9, 4, -5, 3)
 For i = LBound(a, 1) To UBound(a, 1)
  If a(i) > 0 Then k = k + a(i)
 Next i
MsgBox (k)
End Sub
                        

Оцени полезность:

12 голосов , оценка 4.083 из 5

Похожие ответы