> program shengchengpailie;
> type pailie=array[1..1024] of integer;
> var m,n,k,d,e:integer;a:pailie;
> 
> procedure Sort(var a:pailie;shou,wei:integer);
> var
> i,j,s,t:integer;
> begin
>   for i:=shou to wei-1 do
>     begin
> 	  s:=i;
> 	  for j:=i+1 to wei do
> 	    if a[j]<a[s] then s:=j;             
> 	   begin
>            t:=a[s];
>            a[s]:=a[i];
>            a[i]:=t;
>             end;     
>     end;  
> end;
> 
>   procedure after(var a:pailie;n:integer);
>     var i,j,c,b,t,s,l:integer;
>     begin
>       b:=1025;j:=0;
>       for i:=1 to n-1 do
>         begin
>           if a[i]<a[i+1] then j:=i;
>         end;
>       if (j=0) then
>         begin
>           for i:=1 to n do a[i]:=i;
>         end
>       else
>       begin
>         for i:=j+1 to n do
>            begin
>              if (a[i]>a[j]) and (a[i]<b)  then begin c:=i;b:=a[i] end;
>            end;
>         t:=b;a[c]:=a[j];a[j]:=t;
>         sort(a,j+1,n)
>       end;
>     end; 
>  begin
>  readln(m);
>  for d:=1 to m do
>     begin
>      read(n,k);
>      readln;
>      for e:=1 to n do
>      read(a[e]);
>      for e:=1 to k do
>       after(a,n);
>      for e:=1 to n-1 do
>      write(a[e],' ');
>      write(a[n])
>     end;
> end.

• Re:write(a[n])->writeln(a[n]); (7) mayakovsky 2004-10-02 20:16:04