Question

怎样用递归算法输出一个数组的所有元素?怎样倒序输出?(PASCAL)

拜托了！！！

Answer 1

这是顺序:
VAR
i,n:longint;
a:array[1..100]of longint;
procedure make(le:longint);
begin
if le>n then exit;
write(a[le],' ');
make(le+1);
end;

BEGIN
readln(n);
for i:=1 to n do read(a[i]);
make(1);
END.

倒序:
var
i,n:longint;
a:array[1..100]of longint;
procedure make(le:longint);
begin
if le<n then make(le+1);
write(a[le],' ');
end;

BEGIN
readln(n);
for i:=1 to n do read(a[i]);
make(1);
END.

直接打上来的 有语法问题请见谅