prac_b.pas

这是上海题的acm决赛题

var j,i,t:integer;
    a:array[1..10000] of integer;
    n:integer;

begin
  assign(input,'b.in');
  reset(input);
  read(t);
  for i:=1 to t do
  begin
    read(n);
    for j:=1 to n do 
      read(a[j]);
    for j:=n downto 1 do
      write(a[j],' ');
    writeln;      
  end;
  close(input);  
end.