还是有题目不会啊啊呜呜~~~~(>_<)~~~~ - pascal吧

level 2

温柔戏命师😳 楼主

2015年05月09日 09点05分 1

level 7

油海盈天清心长X

var
n,m,k,i:integer;
a:array [0..101] of integer;
begin
readln(n,m,k);
for i:=1 to n do read(a[i]);
for i:=n downto m do a[i+1]:=a[i];
a[m]:=k;
for i:=1 to n+1 do write(a[i],' ');
end.

2015年05月09日 12点05分 2

温柔戏命师😳

还是要谢你啊

2015年05月10日 04点05分