Вычислить сумму произведений всех пар соседних чисел массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы