Вычислить сумму элементов массива, стоящих на нечетных позициях, и заменить 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
Похожие ответы