Дана последовательность из целых чисел - 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

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


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

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

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