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

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];