Dim p As Double, n As Integer, s As Integer, i As Integer

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

ReDim a(1)

n = 1: a(n) = 1: p = 1

Do While p <= m

n = n + 1

ReDim Preserve a(n)

a(n) = a(n - 1) + 2

p = p * a(n)

Loop

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

'т.к. сначала ищется произведение, затем сравнивается с m

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

ReDim Preserve a(n - 1)

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

For i = 1 To n - 1

Cells (1, i) = a(i)

Next i

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

p = 1: s = 0

For i = 1 To n - 1

p = p * a(i)

s = s + a(i)

Next i

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

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

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

End Sub

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

Sub primer_7()

Dim a() As Single

Dim k As Single

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

Не нашли, что искали? Воспользуйтесь поиском: