ane buat ini pke metode counting sort gan
program modus_terbesar;
var
n,i,tmp,tmp2:integer;
arr,C:array [1..1000] of integer;
begin
for i:=1 to 1000 do C[i]:=0;
write('Masukkan banyak : ');readln(n);
for i:=1 to n do
begin
write('Input ', i,' : ');readln(arr[i]);
inc(C[arr[i]]);
end;
tmp:=0;
tmp2:=0;
for i:=1 to 1000 do if C[i]>=tmp then tmp:=C[i];
for i:=1 to 1000 do if C[i]=tmp then if i>tmp2 then tmp2:=i;
write('Modusnya adalah ', tmp2);
end.
dan ini outputnya:
