xem dung ko
program tong;
uses crt;
var Max,so,i,j:integer;
A,B:array[0..100] of integer;
begin
clrscr; Max:=-10;
randomize;
For i:=1 to 50 do A[i]:=random(100);
For i:=1 to 50 do
begin
j:=A[i];
inc(B[j]);
end;
For i:=1 to 50 do write(A[i],' ');
writeln;
For j:=1 to 50 do if B[j]>=Max then
begin
Max:=B[j];
so:=j;
end;
writeln(so);
readln;
end.