Водномерном массиве с ( 20 ) просуммировать первый элемент с последним, второй с предпоследним и т.д. результат записать а массив в ( 10 ) и в нем найти наибольший элемент.

var i,m,n,u:integer;
c:array[1..20] of integer;
b:array[1..10] of integer;
begin
m:=1;
n:=20;
u:=1;
for i:=1 to 20 do
read(c[i]);
for i:=1 to 10 do
begin
b[i]:=c[m]+c[n];
m:=m+1;
n:=n-1;
end;
for i:=1 to 10 do
if b[i]>b[u] then u:=i;
write(b[u]:4);
end.

Вот тебе с "дружеским" интерфесом