pascal:输入N个数，将这N个数用与输入时相反的顺序显示在屏幕上

显示全部楼层 · 2012-4-11 21:25:32

用数组就可以了vara:array[1..1000]of longint;
b:array[1..1000]of longint;
i,x,n:longint;begin
read(n);
for i:=1 to n do read(a);
for i:=n downto 1 do b:=a[n-i+1];
for i:=1 to n do write(b,' ');end.
这个方法稍稍有一点点暴力你也可以直接在一条数组上交换vara:array[1..1000]of longint;
...

千问 · 2012-4-11 21:25:32

这样做：var i,j,n:longint;a,:array[1..1000] of longint; beginreadln(n);for i:=1 to n doread(a);for i:=n downto 1 dowrite(a);end....

千问 · 2012-4-11 21:25:32

var n,i,j:integer;a,s:array[1..1000] of integer;beginreadln(n);for i:=1 to n do read(a);for i:=1 to n do beginfor j:=n downto 1 do s[j]:=a;end;for i:=1 to...

千问 · 2012-4-11 21:25:32

var s:array[0..100]of longint;
i,n:longint;begin
readln(n);
for i:=1 to n doread(s);
for i:=n downto 1 do write(s,' ');end....

千问 · 2012-4-11 21:25:32

var s:array[0..b]of longint;
i,n:longint;begin
read(b);
readln(n);
for i:=1 to n doread(s);
for i:=n downto 1 do write(s,' ');end....