一条弱题 [复制链接]

递归的方法求数组中的最大数

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[j]>maxn then max:=a[j];
  max(j+1);
end;

begin
read(n);
for i:=1 to n do
read(a[n]);
maxn:=0;
max(1);
end.

Thank you！！