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