Chương trình ví dụ:
Mã: Chọn tất cả
Input:
10
1 2 3 4 5 2 1 3 6 7
Output:
1
2
Mã: Chọn tất cả
Uses Crt;
Var i, j, N : Integer;
M, C : Array[1..10000] Of Integer;
Begin
ClrScr;
Write('Nhap so luong phan tu: ');
ReadLn(N);
For i := 1 To N Do Begin
Write('Nhap so thu ', i, ': ');
ReadLn(M[i]);
End;
FillByte(C, SizeOf(C), 0);
For i := 1 To N - 1 Do
For j := i + 1 To N Do
If M[i] = M[j] Then Inc(C[i]);
j := 0;
For i := 1 To N Do
If C[i] > j Then j := i;
WriteLn('So xuat hien nhieu nhat la: ', M[j]);
Write('So la xuat hien la: ', C[j]+1);
ReadLn;
End.