Xóa các phần tử trùng nhau trong mảng 1 chiều

Admin

Tổng số bài gửi

: 22

Danh vọng

: 64

Được thank

: 7

Ngày Tham gia

: 19/04/2013

Tuổi

: 26

Đến từ

: Quảng trị

Thú Cưng

:

226419/04/201326Quảng trị

Tiêu đề: Xóa các phần tử trùng nhau trong mảng 1 chiều   Sun Apr 21, 2013 2:08 pm

Tiêu đề: Xóa các phần tử trùng nhau trong mảng 1 chiềuSun Apr 21, 2013 2:08 pm

Code:

Program Bo_so_trung;
  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 <Enter> de ket thuc ‘);
  Readln
End.