В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов - VB

Узнай цену своей работы

Формулировка задачи:

Привет. Очень нужна ваша помощь в решении задачи: "В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов", я записала ее на паскале....но с VBasic пока проблемы....помогите записать программу в VB плиз!!!

Решение задачи: «В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов»

textual
Листинг программы
Private Sub Command1_Click()
Dim a(20) As Integer
Dim i As Integer
Dim s As String
 
Randomize
 
For i = 1 To 20
    a(i) = 10 * Rnd()
    s = s & a(i) & " "
Next
 
Print (s)
s = a(1) & " "
 
For i = 2 To 20
    a(i) = a(i - 1) + a(i)
    s = s & a(i) & " "
Next
 
Print (s)
 
End Sub

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


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

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

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