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