Viết chương trình chèn phần tử k vào trong mảng!! Giúp em với!

0 bình luận về “Viết chương trình chèn phần tử k vào trong mảng!! Giúp em với!”

1. 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.

   Bình luận

2. 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.

   Bình luận