Паскаль Найдите сумму элементов, которые стоят по нечетными намерами в Одномерном Масиве

Question

Паскаль Найдите сумму элементов, которые стоят по нечетными намерами в Одномерном Масиве

Answer 1

Readln(n);
sum:=0;
i:=1;
while i<=n do begin<br>     sum:=sum+massiv[i];
     i:=i+2;
end;
writeln(summ);