CODE ĐÃ TEST, KHÔNG LỖI:

Uses crt;
Var A: array[1..10000] of longint;
    n,i,j,k: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        i:=2;
        While i<=n do
        Begin
                j:=1;
                While A[j]<>A[i] do inc(j);
                If j<i then
                Begin
                        For k:=i to n-1 do
                                A[k]:=A[k+1];
                        n:=n-1;
                End
                Else inc(i);
        End;
        For i:=1 to n do Write(A[i],' ');
        Readln
End.

12345678910111213141516171819202122232425Program 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

?123456789101112131415161718192021222324252627282930313233Program Xoa_Pt;Var i,spt,vitri: Integer;a: Array[1..100] Of Integer;BeginWriteln('--XOA PHAN TU TRONG MANG--');Writeln('------------------------------------------------------');Writeln;Write('-Mang co bo nhieu phan tu- ');Readln(spt);For i:=1 To spt DoBeginWrite('-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 ');ReadlnEnd.

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.

?12345678910111213141516171819202122232425262728293031323334353637Program Bo_so_trung;Uses crt;Const Max=100;Var A: Array[1..Max] Of Integer;i,j,k,n: Integer;BeginWriteln('XOA BO CAC SO TRUNG NHAU');Writeln('-----------------------------------------------');Writeln;Write('-Nhap so phan tu mang: '); Readln(n);For i:=1 To N DoBeginWrite('-Phan tu A[',i,']= ');Readln(a[i]);End;i:=2;While i <= N DoBeginj:=1;While a[j] <> a[i] Doj:=j+1;If j < i ThenBeginFor k:=i to n-1 Doa[k]:=a[k+1];n:=n-1;EndElsei:=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 ');ReadlnEnd.