将
a
数组的
内容
按颠倒的次序重放，在操作时，只能借助于一个临
时存储单元而不得另外开辟数组。

var i,n:longint;
a:array[1..1000] of longint;//a数组
procedure swap(var a,b:longint);//交换
var t:longint;//临时空间
begin
t:=a;
a:=b;
b:=t;
end;
begin
readln(n);//数组单元个数
for i:=1 to n do read(a[i]);//读入
for i:=1 to (n div 2) do swap(a[i],a[n-i+1]);//交换数组元素顺序
for i:=1 to n do write(a[i],' ');//输出
end.

var buf: array[1..100] of integer;
temp: integer;
...
i:=1; j:=100
while (i<j) do
begin
temp:=buf[i]; buf[i]:=buf[j]; buf[j]:=temp;
i:=i+1; j:=j-1;
end;
...

详细讲一下 树 和图吧