Вычислить сумму элементов массива, стоящих на нечетных позициях, и заменить min элемент на найденную сумму - VB

Формулировка задачи:

Здравствуйте! Очень нужна Ваша помощь! Требуется создать программу в Visual Basic по заданию Вычислить сумму элементов массива B = {1, 0, 4, -2, 16, 0.1, 7, 8, 90, 13}, стоящих на нечетных позициях, и заменить минимальный элемент внутри массива на найденную сумму. Заранее спасибо!

Решение задачи: «Вычислить сумму элементов массива, стоящих на нечетных позициях, и заменить min элемент на найденную сумму»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Task(A() As double)
  imin%=1
  S#=0
  for i%=1 to Ubound(A,1)
      if i% mod 2 = 1 then S#=S#+A(i%)
      if A(i%)<A(imin%) then imin%=i%
  Next i%
  A(imin%)=S#
End Sub

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

6 голосов , оценка 4.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы