Примеры решения задач

Пример 1. Ввести массив А из 10 элементов. Найти сумму и произведение элементов массива.

В этом примере используется характерный прием программирования – метод накопления: к переменной S последовательно прибавляются отдельные элементы массива; в результате при выходе из цикла переменная S будет содержать сумму всех перебранных элементов. Аналогично можно найти произведение всех элементов (в этом случае начальное значение P должно равняться не нулю, а единице (P = 1).

Sub primer_1()

Dim a(10) As Single

Dim s As Single

Dim p As Double

Dim i As Integer

For i = 1 To 10

a(i) = Cells (1, i)

Next i

s = 0: p = 1

For i = 1 To 10

s = s + a(i) 'вычисление суммы

p = p * a(i) 'вычисление произведения