Дан массив с количеством элементов n. Сжать выбросив каждый четный элемент.
Дан массив с количеством элементов 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];
Не нашли ответ?
Похожие вопросы