Найти сумму всех нечетных элементов массива, стоящих на четных местах - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
