Viết chương trình chèn phần tử k vào trong mảng!! Giúp em với!
2 câu trả lời
uses crt;
var n,k,i,m:longint; a:array[1..10000000]of longint;
begin
write('n=');readln(n);
write('k=');readln(k);
write('Vi tri cua k= ');readln(m);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to m-1 do write(a[i],' ');
write(k,' ');
for i:=m to n do write(a[i],' ');
readln
end.
program chenpt;
uses crt;
type mang=array[1..100] of integer;
var n,i,x,dem,k:integer;
a:mang;
procedure nhap(var a:mang; var n:integer);
var i:integer;
begin
write('nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-------------------------------------------}
procedure xuat(a:mang; n:longint);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
end;
{------------------------------------------}
procedure chenk(var a:mang;var n:integer; x,k:integer);
var i:integer;
begin
for i:=n+1 downto k+1 do a[i]:=a[i-1];
a[k]:=x;
n:=n+1;
end;
{------------------------------------------}
begin
nhap(a,n);
xuat(a,n);
write('nhap vi tri:'); readln(k);
write('nhap so can chen:'); readln(x);
sapxep(a,n);
chenk(a,n,x,k);
xuat(a,n);
readln
end.