Дана последовательность из целых чисел - VB
Формулировка задачи:
Нужно написать программу в Basic'е :
1.Дана последовательность из целых чисел. Найти сумму нечётных элементов этой последовательности.
2.Дана последовательность целых чисел за которой следует 0.Найти сумму с нечётными номерами этой последовательности.
заранее спасибо)))
вот мой скайп, на случай вопросов: Lina.ae
Решение задачи: «Дана последовательность из целых чисел»
textual
Листинг программы
Private Sub Form_Load()
Dim a() As Single
c = InputBox("1 элемент массива")
ReDim Preserve a(1 To 1)
a(1) = c
i = 1
Do While c <> 0
i = i + 1
ReDim Preserve a(1 To i)
c = InputBox(i & " элемент массива")
a(i) = c
Loop
For i = 1 To UBound(a) Step 2
sum = sum + a(i)
Next i
MsgBox sum
End Sub