Сумма компонентов - Pascal

Формулировка задачи:

Помогите найти сумму компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m.


textual

Код к задаче: «Сумма компонентов - Pascal»

s:=0;
for i:=1 to n div 2 do//до середины массива
s:=s+a[i]+a[n-i+1];//суммируем пары симметричных
if odd(n) then s:=s+2*a[n div 2+1];//если размер нечетный, прибавляем удвоенное центральное (m=k).
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5

Источник