Вычисление суммы, произведения и количества элементов в одномерном массиве

Вычисление суммы, произведения и количества элементов в одномерных массивах производится обязательно в цикле, перед которым сумма приравнивается к нулю, произведение – к единице, количество – к нулю.

Например, в одномерном массиве, состоящем из пяти элементов, для вычисления суммы следует записать следующее:

sum = 0

For i = 1 To 5

sum = sum + A(i)

Nexti

MsgBox (sum)

Для вычисления произведения:

pr = 1

For i = 1 To 5

pr = pr * A(i)

Nexti

MsgBox (pr)

Для вычисления количества:

kol = 0

For i = 1 To 5

kol = kol + 1

Nexti

MsgBox (kol)

Если необходимо вычислить сумму, произведение или количество элементов массива, удовлетворяющих некоторому условию, то в цикле следует записать условный оператор, в котором проверяется это условие.

Пример

Задан целочисленный массив А, состоящий из N элементов. Вычислить среднее арифметическое четных элементов и среднее геометрическое нечетных элементов.

Программныйкод

Option Explicit

Sub PR16()

Dim i As Integer, S As Integer

Dim K1 As Integer, K2 As Integer, N As Integer

Dim PR As Double, SA As Double, SG As Double

Dim A(50) As Integer

N = Val(InputBox("Введите N"))

S = 0: PR = 1: K1 = 0: K2 = 0

For i = 1 To N

A(i) = Cells(1, i)

Next i