Найти сумму элементов массива вещественных чисел, имеющих нечетные номера - VB

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

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

Найти сумму элементов массива вещественных чисел, имеющих нечетные номера. Размерность массива – 20. Заполнение массива осуществить случайными числами от 100 до 200

Решение задачи: «Найти сумму элементов массива вещественных чисел, имеющих нечетные номера»

textual
Листинг программы
Private Sub Command1_Click()
Dim i, sum  As Integer
Dim a() As Double
Cls
sum = 0
Print "Первоначальная матрица:"
      ReDim a(1 To 20)
      For i = 1 To 20
                        a(i) = Rnd * (200 - 100)
                        Print Round(a(i), 1);
                        If i Mod 2 = 0 Then sum = sum + a(i)
     Next i
Print
Print "Сумма:"; sum
End Sub

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


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

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

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