Chèn phần tử, xóa phần tử trong mảng

Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi chèn vào một số bất kỳ vào một vị trí nào đó trong mảng, số cần chèn và vị trí chèn nhập từ bàn phím.

Program Chen;
Uses crt;
Var i,spt, so,vitri: Integer;
A: Array[1..100] Of Integer; 
Begin 
    Clrscr;
    Writeln(' + CHEN MOT SO VAO MANG +'); 
    Writeln('-------------------------------'); 
    Write('-Co bao nhieu phan tu-: '); 
    Readln(spt); 
    For i:=1 To spt Do
      Begin
        Write('-Phan tu A[',i,']= '); Readln(a[i]); 
      End; 
    Writeln; Writeln('--MANG TRUOC KHI CHEN--');
    For i:=1 To spt Do Write(a[i]: 6); Writeln;
    Write('-Can che so: ');
    Readln(so); Write('-Vao vi tri: ');
    Readln(vitri); 
    For i:=spt+1 Downto Vitri+1 Do    Writeln;
    a[i]:=a[i-1]; a[vitri]:=so; spt:=spt+ 1;
    Writeln('MANG SAU KHI CHEN');
    Readln;
    For i:=1 To spt Do Write(a[i]: 6);
End.

Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi một phần tử nào đó có vị trí nhập từ bàn phím

 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.

Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi những phần tử trùng nhau trong mảng và in ra màn hình phần tử sau khi đã bỏ bớt.

 Program Bo_so_trung;
Uses crt;
Const Max=100;
Var A: Array[1..Max] Of Integer;
i,j,k,n: Integer;
Begin
Writeln('XOA BO CAC SO TRUNG NHAU');
Writeln('-----------------------------------------------');
Writeln;
Write('-Nhap so phan tu mang: '); Readln(n);
For i:=1 To N Do
Begin
Write('-Phan tu A[',i,']= ');
Readln(a[i]);
End;
i:=2;
While i <= N Do
Begin
j:=1;
While a[j] <> a[i] Do
j:=j+1;
If j < i Then
Begin
For k:=i to n-1 Do
a[k]:=a[k+1];
n:=n-1;
End
Else
i:=i+1;
End;
Writeln;
Write('-Mang con lai: ');
For i:=1 to n Do Write(a[i]: 8);
Writeln;
Writeln(' Bam phim  de ket thuc ');
Readln
End.