//bạn dùng một mảng tính tổng số lần xuất hiện của các số trong dãy
program sokhongtrung;
var n, i, j, tam: integer;
A, B: array[1..100] of integer;
begin
fillchar(B, sizeof(B), 0); // Khởi tạo tất cả giá trị mảng đánh dấu B = 0
readln(n); // Người dùng nhập n và n số nguyên
for i:=1 to n do
read(a[i]);
writeln();
for i:=1 to n-1 do // Sắp xếp mảng n theo thứ tự tăng dần
for j:=i+1 to n do
if a[i] > a[j] then
begin
a[i] := tam;
a[i] := a[j];
a[j] := tam;
end;
for i:=1 to n do
B[i] := B[i] + 1;
for i:= 1 to a[n] do
if B[i] = 1 then write(B[i], " ");
readln;
end.
Thấy hay thì vote 5* nha!
