Вычислить сумму произведений всех пар соседних чисел массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д