Question

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

Answer 1

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