Question

Дан массив с количеством элементов n. Сжать выбросив каждый четный элемент.

Answer 1

For k:=1 to n div 2 do 
s:=s+a[k*2];
Либо по тупому
S := 0; for N := 1 to Size do if Not Odd(N) then S := S + A[N];