回帖：program t1;
var a:array[1..100]of integer;
n,i,t:integer;
function abc(k:integer):integer;
begin
if k=1 then abc:=a[1]
else begin
t:=abc(k-1);
if a>t then abc:=a
else abc:=t;
end;
end;
begin
readln(n);
for i:=1 to n do
read(a);
writeln(abc(n));
end.
这个应该没有错吧.....