Массив. N элементов

@Воин_Тени · Регистрация: 25.06.2011

Author24 — интернет-сервис помощи студентам

Какой нужен код для следующей задачи
"Для массива из N элементов вычесть из суммы элементов с нечетными индексами сумму элементов с четными индексами".
Решить ее нужно в Worde. Можно использовать любое значение N "желательно все таки не меньше трех". А то я в этом ни как не разберусь

@pincet · 30.06.2011, 18:13

Размышляй

Код

Visual Basic

Sub m()
 myArray = Array(1, 2, 8, 10, 1)
 S_chet = 0
 S_nechet = 0
 For i = LBound(myArray) To UBound(myArray)
   If i Mod 2 = 0 Then
      '  S_chet = S_chet + i
         S_chet = S_chet +myArray( i)
   Else
       ' S_nechet = S_nechet + i
        S_nechet = S_nechet +myArray(i)
   End If
 Next
 MsgBox "Результат = " & S_nechet - S_chet
End Sub

@Воин_Тени · 30.06.2011, 19:14 **[ТС]**

Уррра считает правильно.

Спасибо за програмку.

@Воин_Тени 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 9
		1
	Массив. N элементов 30.06.2011, 17:50. Показов 945. Ответов 2 Метки нет (Все метки) Какой нужен код для следующей задачи "Для массива из N элементов вычесть из суммы элементов с нечетными индексами сумму элементов с четными индексами". Решить ее нужно в Worde. Можно использовать любое значение N "желательно все таки не меньше трех". А то я в этом ни как не разберусь 0

@Воин_Тени 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 9
	30.06.2011, 19:14 [ТС]	3
	Уррра считает правильно. Спасибо за програмку. 0