点这里查看
讨论 / 分啊分啊
zhangzhan456 2011-08-07 05:35:00
点我顶贴 收藏 删除
试试
#1 岑洲杰@2011-04-20 22:20:00
回复 删除
#2 岑洲杰@2011-04-20 22:21:00
回复 删除
#3 HYN@2011-04-20 22:21:00
回复 删除
program qaz;

var n,m,t,qi,i:longint;

a,b:array[1..1000] of longint;

begin

readln(n,m,t);

for i:=1 to n do readln(a[i]);

for qi:=1 to n do if a[qi]=m then break;

for i:=1 to qi-1 do

a[n+i]:=a[i];

for i:=1 to n do

begin if t>=i then b[a[i]]:=a[qi+t-i] else

b[a[i]]:=a[qi+t+n-i];

end;

for i:=1 to n-1 do

write(b[i],' ');writeln(b[n]);

end.

#4 岑洲杰@2011-04-20 22:21:00
回复 删除
卅dasddd
#5 cjj815@2011-04-20 22:21:00
回复 删除
jfxddxf
#6 岑洲杰@2011-04-20 22:21:00
回复 删除
asdsad
#7 zhenghanle@2011-04-20 22:21:00
回复 删除
#8 zhenghanle@2011-04-20 22:21:00
回复 删除
#9 zhenghanle@2011-04-20 22:21:00
回复 删除
#10 DEATHKNIGHT@2011-08-03 18:05:00
回复 删除
ggghhhyyytttrrreeeiiijjjkkkaaabbbnnnmmm
查看更多回复
提交回复