Вычислить сумму произведений всех пар соседних чисел массива - VB
Формулировка задачи:
Задан числовой массив а(n). Вычислить сумму произведений всех пар соседних чисел.
Решение задачи: «Вычислить сумму произведений всех пар соседних чисел массива»
textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Integer, n As Integer, summ As Integer, proizv As Integer, i As Integer
n = InputBox("Размер массива n = ", , 10)
ReDim A(1 To n)
Print "Массив:"
For i = 1 To n
A(i) = Rnd * (10) + 1 'Заполняем случайными числами
' A(i) = InputBox("А(" & i & ") = ") 'Если нужно заполнить вручную - расскомментировать
Print A(i); vbTab;
Next i
Print
Print "Произведения пар соседних чисел:"
For i = 1 To n - 1
proizv = A(i) * A(i + 1)
Print proizv; vbTab;
summ = summ + proizv
Next i
Print
Print "Сумма произведений всех пар соседних чисел = " & summ
End Sub