点这里查看
讨论 / 45
张湛二代 2013-02-02 19:12:00
点我顶贴 收藏 删除
20+++
#1 HYN@2011-04-20 21:17: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.

#2 HYN@2011-04-20 21:17: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.

#3 cjj990924@2011-04-20 21:17:00
回复 删除
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 余可2代@2011-04-20 21:18:00
回复 删除
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.

#5 zhenghanle@2011-04-20 21:46: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.

#6 岑洲杰@2011-04-20 22:20:00
回复 删除
#7 HYN@2011-04-20 22:20: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.

#8 岑洲杰@2011-04-20 22:20:00
回复 删除
#9 鸡小鸡@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.

#10 huangxin@2013-02-02 06:11: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.

查看更多回复
提交回复