Mencari modus terbesar dengan pascal

Oleh Unknown

Wednesday, 7 May 2014

Bagikan :

Tweet

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:

Tag : Pascal, Programming