第1个回答 2012-10-26
var a:array[1..100]of integer;
x,k,i:integer;
begin
for i:=1 to 5 do
read(a[i]);
readln(x,k);
if (k>=1)and(k<=5) then
begin
for i:=5 downto k do
a[i+1]:=a[i];
a[k]:=x;
for i:=1 to 6 do write(a[i]:6);
writeln;
end
else
writeln('Position Error!');
end.