Algoritma Turbo Pascal Mencari Modus

program nilaimodus;

uses crt;

var n,i,j: integer;

    ftinggi: real;

    fx: array[1..100]of integer;

                modus,x: array[1..100]of real;

begin

 clrscr;

 write ('masukan banyak data: '); readln (n);

 for i:=1 to n do

 begin

  write ('data ke-',i,' : '); readln(x[i]);

  fx[i]:=1;

 end;

 for i:=1 to n-1do

  for j:=i+1 to n do

    if x[i]=x[j] then fx[i]:=fx[i]+1;

ftinggi:=1; 

 for i:=1 to n do

   if fx[i]>ftinggi then ftinggi:=fx[i]; 

 writeln; 

 writeln ('Frekuensi tertinggi adalah: ',ftinggi:0:0);

 writeln;

 j:=0;

 for i:=1 to n do

  if fx[i]=ftinggi then

   begin

    j:= j+1;

                modus[j]:=x[i];

   end;

 writeln;

 if j=n then

                                                writeln('Tidak ada Modus')

                                else

 if ftinggi=n div j then

                                                writeln('Tidak ada Modus')

                                else

 begin

 writeln ('Banyak modusnya ',j,' buah, yaitu: '); 

 for i:=1 to j do

  writeln (modus[i]:0:0);

 end;

 

  readln;

end.