Вопрос 2. Составить программу вычисления суммы элементов массива, стоящих на четных местах. помогите состав

[Misha229229]

2. Составить программу вычисления суммы элементов массива, стоящих на четных местах. помогите составить задачу!

 

[уукук]

Раз язык программирования не играет роли, то пусть будет Бейсик Sub Massiv() Dim i As Integer Dim n As Integer Dim s As Integer Dim a(100) As Integer n = InputBox("n=") s = 0 For i = 1 To n a(i) = InputBox(i & " элемент:") If i Mod 2 = 0 Then s = s + a(i) Next i MsgBox ("s=" & s) End Sub

 

[baldshot]

неплохо бы указать язык программирования