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. Càng ngắn càng tốt nha mọi người. Em cảm ơn!
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. Càng ngắn càng tốt nha mọi người. Em cảm ơn!
Program NN;
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.