dùng pascal nha mn '-'; cho n và 1 dãy gồm n chữ số viết ra chữ số có lần lặp nhiều nhất trong dãy đó,nếu có nhiêù số cùng nhiều lần nhất thì in tất cả ra hứa cho tlhn
1 câu trả lời
uses crt;
var i,j,n,max:longint; a,b:array[1..1000000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
for j:=1 to i-1 do
if a[i]=a[j] then inc(b[i]);
if b[i]>max then max:=b[i];
end;
for i:=1 to n do if max=b[i] then write(a[i],' ');
readln
end.
