ập 5.3 Viết chương trình nhập n số, xoá số thứ k trong n số vừa nhập.In ra n-1 số còn lại. n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6,

0 bình luận về “ập 5.3 Viết chương trình nhập n số, xoá số thứ k trong n số vừa nhập.In ra n-1 số còn lại. n= 10 (Nhập 10 phần tử) Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6,”

1. Program Xoa_mang;
   uses crt;
   var m:array[1..100] of integer;
    n,i,k:byte;
   begin
    Write(‘So phan tu cua day: ‘);readln(n);
    for i:=1 to n do
    Begin
    write(‘M[‘,i,’]=’);
    readln(M[i]);
    end;
    write(‘Nhap phan tu can xoa: ‘);readln(k);
    for i:=k to n-1 do m[i]:=m[i+1];
    for i:=1 to n-1 do write(m[i],’, ‘);
    readln
   end.
   . Nhận xét: Với yêu cầu của bài tập trên chỉ cần kiểm tra chỉ số khi in (VD nếu i = 8 thì
   không in). Tuy nhiên trong khi sử dụng mảng để lưu dữ liệu giải toán, nhiều khi ta có nhu
   cầu xóa bớt hoặc chèn thêm phần tử vào dãy.

   chúc bn hc tốt @prian #kha

   Bình luận