Viết chương trình cho phép nhập một dãy gồm n số nguyên. Nhập thêm một số và chèn thêm vào dãy sau phần tử k.

0 bình luận về “Viết chương trình cho phép nhập một dãy gồm n số nguyên. Nhập thêm một số và chèn thêm vào dãy sau phần tử k.”

1. uses crt;
   var M: array[1..100] of integer; i,n,k:integer;
   begin
       clrscr;
       write(‘Nhap so luong phan tu: ‘);readln(n);
       for i:=1 to n do
       begin
           write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘); 
           readln(M[i]);
       end;
       write(‘Nhap vi tri chen: ‘);
       readln(k);
       for i:=n+1 downto k+1 do M[i]:=M[i-1];
       write(‘Nhap so can chen: ‘); 
       readln(M[k]);
       write(‘Day so sau khi chen la: ‘);
       for i:=1 to n do write(M[i],’, ‘);
       write(M[n+1],’. ‘);
       readln
   end.

   Bình luận