End Sub

Пример 7. Задать массив А (n) из членов ряда А (i) = . Число элементов массива ограничить по условию А (i) £ к, где к >> 1. Найти сумму, произведение и среднее значение элементов массива.

Sub primer_7()

Dim a() As Single

Dim k As Single

k = InputBox ("Введите положительное число k > 1")

Dim p As Double, i As Integer, j As Integer, s As Single

'заполнение динамического массива

i = 1

ReDim a(i)

a(i) = Sqr (i)

Do While a(i) <= k

i = i + 1

ReDim Preserve a(i)

a(i) = Sqr (i)

Loop

'отсечение последнего элемента массива

'т.к. сначала ищется элемент, затем сравнивается с k

'затем происходит выход из цикла

ReDim Preserve a(i - 1)

'печать массива

For j = 1 To i - 1

Cells (1, j) = a(j)

Next j

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

p = 1: s = 0

For j = 1 To i - 1

p = p * a(j)

s = s + a(j)

Next j

Cells (2, 1) = "Сумма элементов = " & s

Cells (3, 1) = "Произведение элементов = " & p

Cells (4, 1) = "Среднее значение элементов = " & s / (i - 1)

Cells (5, 1) = "Количество элементов = " & i - 1