Найти сумму всех нечетных элементов массива, стоящих на четных местах - VB
Формулировка задачи:
Здравствуйте! Помогите, пожалуйста, решить задачу:
Найти сумму всех нечетных элементов массива, стоящих на четных местах. Массив заполнен случайным образом, от промежутка от -100 до 100. Размерность массива 200.
Решение задачи: «Найти сумму всех нечетных элементов массива, стоящих на четных местах»
textual
Листинг программы
Function Sum(A() as integer, Optional i as integer=2, Optional s as integer =0) As Integer if i>Ubound(A,1) then Sum=s elseif (A(i) mod 2) then S=Sum(A,i+2,s) else S=Sum(A,i+2,s+A(i)) end if End function