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