работа с массивами(делфи 7)

[Rondo]

1)поменять местами элементы массива c=(c1,c2,...cn),равностоящие от начала и конца массива.
2)Найти тройку последовательных элементов массива p=(p1,p2,...pn) с наименьшей суммой.
P.S. буду очень благодарен! можно программы полностью и чтоб решение выводило в командной строке!

[Z1000000]

Напиши хотя бы ввод и вывод массива.
Покажи что пытаешься делать.
Остальное помогу.

А если все полностью, то это небездвозмездно и на мыло.

[Mad_Cat]

поменять местами элементы массива c=(c1,c2,...cn),равностоящие от начала и конца массива.

for i:=1 to n div 2 do
begin
t:=c[i];
c[i]:=c[n-i+1];
c[n-i+1]:=t;
end;

Найти тройку последовательных элементов массива p=(p1,p2,...pn) с наименьшей суммой.

sum:=p[1]+p[2]+p[3]; k:=1;
for i:=2 to n-2 do
begin s:=0; 
for j:=i to i+2 do
s:=s+p[j];
if s<sum then begin sum:=s; k:=i;end;
end;
writeln(k,' ',k+1,' ',k+2);