Найти сумму элементов массива вещественных чисел, имеющих нечетные номера - 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