Массивы=((((

[Alex_12Proxy]

Помогите плиз с массивами.
1) В массиве с1,с2,с3...,с16 найти сумму чисел, больших 1. через for
2)Из вектора с=(с1,с2...,с18) получить вектор Х=(х1,12..,х18) по правилу: х1=с1,х2=с3,..,х9=с17,х10=с18, х11=с16,...,х18=с2. через repeat
3)Дана последовательность чисел:а1,а2...,а14. Найти сумму S1 элементов до первого положительного элемента и сумму S2 элементов, расположенных правее него. через While.
Кто правильно сделает скину 100р!!!

[rubius2008]

1)

s:=0; for i:=1 to 16 do if c[i]>1 then s:=s+c[i];

2)

i:=1; repeat x[i]:=c[2*i-1]; x[9+i]:=c[18-2*(i-1)]; i:=i+1; until i>9;

3)

s1:=0; i:=1; while a[i]<>0 do begin s1:=s1+a[i]; i:=i+1; end;
s2:=0; i:=i+1; while i<=14 do begin s2:=s2+a[i]; i:=i+1; end;

[Alex_12Proxy]

Мне программы нужны!!!