CONTOH PROGRAM MODUS

MODUS

program modus;

uses wincrt;

var i,n,j,modus:integer;

A,frek:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

readln(A[i]);

writeln;

for i:=1 to n-1 do

begin

for j:=i+1 to n do

if A[i]=A[j] then

frek[i]:=frek[i]+1;

end;

modus:=1;

for i:=1 to n do

begin

write(frek[i],' ');

if frek[modus]<frek[i] then

modus:=i;

end;

write('modus: ',A[modus],' sebanyak ',frek[modus]+1);

end.