Nhập vào vị trí K xóa ở vị trí K trong mảng một chiều Pascal

Viết chương trình nhập mảng A gồm N phần tử. Nhập vào vị trí K xóa ở vị trí K

Một số bài tập về mảng luyện thêm

1. Chuyển các số hạng dương của mảng lên đầu mảng và in mảng ra màn hình.
2. Tìm số phần tử là dương và là số nguyên tố của mảng và vị trí của nó trong mảng
3. Sắp xếp tăng dần mảng đã cho (a[i]<=a[i+1] )
4. Sắp xếp giảm  dần mảng đã cho (a[i]>=a[i+1] )
5. Chèn một số nguyên m (m nhập vào từ bàn phím ) vào cuối dãy
6. Chèn một số nguyên m (m nhập vào từ bàn phím ) vào  đầu dãy
7. Chèn một số nguyên m ( m nhập vào từ bàn phím ) vào vị trí k .
8. Chèn một số nguyên m ( m  nhập vào từ bàn phím ) vào vị trí thích hợp .

Bài giải Pascal

Program Xoa_Pt;

Var i,spt,vitri: Integer;

a: Array[1..100] Of Integer;

Begin

    Writeln('--XOA PHAN TU TRONG MANG--');

    Writeln('------------------------------------------------------');

    Writeln;

    Write('-Mang co bo nhieu phan tu- ');

    Readln(spt);

For i:=1 To spt Do

    Begin

    Write('-Phan tu A[',i: 2,']= ');

    Readln(A[i]);

    End;

Writeln;

Writeln(' --MANG TRUOC KHI XOA--');

Writeln('--------------------------------------------------------');

Writeln;

    For i:=1 To spt Do Write(a[i]: 6);

    Writeln;

    Writeln;

Write('-Vi tri muon xoa: '); Readln(vitri);

    For i:=vitri to spt - 1 Do a[i]:=a[i+1];

    spt:=spt - 1;

    Writeln;

Writeln(' MANG SAU KHI XOA');

Writeln('- -----------------------------------');

Writeln;

    For i:=1 to spt Do Write(a[i]: 6);

    Writeln; Writeln;

Writeln(' Bam phim  de ket thuc ');

Readln

End.

Hình minh họa đáp án