Nhập vào một mảng,chèn thêm một số K và in ra vị trí của số vừa chèn

0 bình luận về “Nhập vào một mảng,chèn thêm một số K và in ra vị trí của số vừa chèn”

1. uses crt;
   var a:array[1..10000] of longint;
           n,i,k,l:longint;
   begin
           clrscr;
           write(‘Nhap so luong phan tu: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                   end;
           write(‘Day so vua nhap: ‘);
           for i:=1 to n do write(a[i],’ ‘); writeln;
           write(‘Nhap so k: ‘); readln(k);
           write(‘Nhap vi tri so ‘,k,’: ‘); readln(l);
           for i:=n+1 downto l+1 do a[i]:=a[i-1];
           a[l]:=k;
           write(‘Day so sau khi them gia tri ‘,k,’ vao: ‘);
           for i:=1 to n+1 do write(a[i],’ ‘);
           readln;
   end.

   Bình luận