Преобразовать массив так, чтобы каждый элемент был как сумма себя и своего соседа впереди - VB
Формулировка задачи:
Преобразовать массив A(i) в массив B(i) так, чтобы в новом массиве каждый элемент получался бы как сумма себя и своего соседа впереди. Последний элемент суммируется с первым. N - не менее 10.
Решение задачи: «Преобразовать массив так, чтобы каждый элемент был как сумма себя и своего соседа впереди»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Integer, b() As Integer, i As Integer, n As Integer
n = InputBox("введите n", , 10)
ReDim a(1 To n), b(1 To n)
Cls
For i = 1 To n
a(i) = Int(Rnd() * 20 - 5)
Print a(i) & vbTab;
Next
Print
b(n) = a(n) + a(1)
For i = 1 To n - 1
b(i) = a(i) + a(i + 1)
Next
For i = 1 To n
Print b(i) & vbTab;
Next
End Sub