Liệt kê phần tử xuất hiện nhiều lần nhất trong danh sách
Code:
Lietke[L_] := Module[{i, n, k, p, m, L2, d, z, b},
p = Sort[L];
k = Union[p];
n = Length[p];
m = Length[k];
L2 = {};
For[i = 1, i ≤ m, i++,
dem = 0;
For[j = 1, j ≤ n, j++,
If[k[[i]] == p[[j]], dem++];
];
L2 = Insert[L2, dem, i];
];
d = Length[L2];
lon = Max[L2];
Print["cac phan tu xuat hien nhieu lan nhat:"];
For[z = 1, z ≤ d, z++,
If[lon == L2[[z]], Print[k[[z]], " xuat hien ", lon, " lan "]];
];
]