回帖：var
n,m,i,t,j,p,q:longint;
s:array[1..25000] of integer;
begin
readln(n,m);
for i:=1 to n do
read(s);
for i:=1 to m do
begin
p:=n-1;
while s>s do
dec(p);
q:=p+1;
while (qs) do
inc(q);
t:=s;
s:=s;
s:=t;
for j:=p+1 to p+(n-p)div 2 do
begin
t:=s;
s:=s;
s:=t;
end;
end;
for i:=1 to n do
write(s,' ');
end.