一条弱题 [复制链接]

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

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[k]>t then abc:=a[k]
                              else abc:=t;
                  end;
    end;
  begin
    readln(n);
    for i:=1 to n do
      read(a);
    writeln(abc(n));
  end.
这个应该没有错吧.....

递归？？不至于吧，特占内存

一般来说这种题目都用循环的

main()
{
int a[1000],c,i;
c=a[0];
for (i=1;i<1000;i++)
{
if (a>c)c=a;
}
printf("%d",c);
}

C语言循环做的

应该是对的吧