输入5个整数依次存放到数组a中(从下标1开始存放),再输入待插入的整数x以及它要插入到数组中的位置下标k

如题所述

第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.
相似回答