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

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


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

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

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