Bài 3: Nhập vào một dãy số nguyên a[1],a[2],…a[n]. Viết chương trình in ra các phần tử khác nhau của dãy và sắp xếp tăng dần.
Ví dụ:
Dãy nhập vào: 1, 7, 2, 7, 1, 5, -3, 1, -3
Dãy in ra: -3, 1, 2, 5, 7
uses crt; var n,i,j,t:longint; a:array[1..1000000] of longint; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); end; for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:=1 to n do if a[i]<>a[i-1] then write(a[i],' '); writeln; readln end.