Массивы. Паскаль

[катя123]

1 Найти сумму всех положительных элементов с четными индексами и произведение всех ненулевых элементов с нечетными индексами.

2 Вычислить сумму элементов массива С(25), расположенных за первым отрицательным элементов. Если все элементы массива неотрицательны, то сообщить об этом.

3 Если первый элемент массива Р(m) положительный, то упорядочить массив по возрастанию, иначе – по убыванию

[Базиля]

и в чем проблема?

[ОДИНОЧЕСТВО В СЕТИ]

1)

s:=0;
 p:=1;
 for i:=1 to n do begin
 if (not odd(i)) and (a[i]>0) then s:=s+a[i];
 if (odd(i)) and (a[i]<>0) then p:=p*a[i];
 end;

2)

 i1:=0;
 s:=0;
 for i:=1 to 25 do
 if a[i]<0 then begin i1:=i;break;end;
 if i1 <> 0 then
 for i:=i1 to 25 do
 s:=s+c[i]
 else
 writeln('- HET');

3)

if p[1]>0 then begin
 n:=m;
 repeat
f:=false;
for i:=1 to n-1 do
if p[i]>p[i+1] then begin        
vp:=p[i];
p[i]:=p[i+1];
p[i+1]:=vp;
 f:=true; end;
n:=n-1;
until not f;end
else begin
repeat
f:=false;
for i:=1 to n-1 do
if p[i]<p[i+1] then begin        
vp:=p[i];
p[i]:=p[i+1];
p[i+1]:=vp;
 f:=true; end;
n:=n-1;
until not f;end;

[катя123]

спасибо огромное!!!!!!