回帖：var
a:array[1..1000] of integer;
i,n:integer;
procedure max(j:integer);
begin
if j=n+1
then
begin
write(maxn) ;
halt;
end;
if a>maxn then max:=a;
max(j+1);
end;
begin
read(n);
for i:=1 to n do
read(a);
maxn:=0;
max(1);
end.