Bài này là phân tử đầu tiên nếu có nhiều phần tử có số lần xuất hiện là max nha

program xuahien;

uses crt;

var A:array[1..10000] of integer;

      n,i,max,d,ptu:integer;

begin

writeln('Nhap so luong phan tu: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write(A[',i,']= '); 

  readln(A[i]);

 end;

max:=1;  ptu:=A[1];

for i:=1 to n-1 do

 begin

  d:=1;

  for j:=i+1 to n do

   if A[i]=A[j] then d:=d+1;

  if d>max then

   begin

     max:=d;

     ptu:=A[i];

   end;

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i]:4);

writeln;

write('Phan tu co so lan xuat hien nhieu nhat la: ',ptu);

readln

end.

uses crt;

var A : array [1 .. 100] of integer;

i, j, N, M, d, c : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

write('Nhay mang A gom ', N ,' so : ');

for i := 1 to N do read(A[i]);

M := A[1]; d := 1; c := 1;

for j := 1 to N do

begin d := 1;

for i := 1 to N do

if (j <> i) and (A[j] = A[i]) then d := d + 1;

if d > c then begin

M := A[j]; c := d; end; end;

writeln('So xuat hien nhieu nhat : ', M);

readln

end.