Найти сумму нечетных положительных элементов массива - VB
Формулировка задачи:
Дан массив А(15). Найти сумму нечетных положительных элементов.
Решение задачи: «Найти сумму нечетных положительных элементов массива»
textual
Листинг программы
Private Sub Command1_Click()
Dim A(1 To 15) As Integer, sum As Integer, i As Integer
sum = 0
For i = 1 To 15
A(i) = InputBox("Введите значение A (" & i & ")", "Ввод данных")
Print A(i);
If A(i) Mod 2 <> 0 And A(i) >= 0 Then sum = sum + A(i)
Next i
Print
Print "Сумма нечетных положительных элементов = " & sum;
End Sub