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

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


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

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

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