PascalABC.net одномерный массив

[Vobydyn]

препод вдруг приехал,сдача завтра
в целом тему понял,но вот как решить подобное не пойму
1)дано 7 целых чисел,к нечетным числам прибавить последнее,последний элемент оставить без изменения
2)дано 8 целых чисел,к 1-му прибавить 2-ое,к 3-му прибавить 4-ое и т.д.
целый код уж не надеюсь получить,хоть подсобите с решением

[IT-man]

1)

for i:=1 to 6 do
if odd(a[i]) then a[i]:=a[i]+a[7];

2)

for i:=1 to 7 do
  a[i]:=a[i]+a[i+1];