Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type seribu=1..1000;
- seseribu=1..100000;
- var kandidat:array [1..100000] of seseribu;
- angka:array [1..100000] of seribu;
- max,n,i,penghitung:seseribu;
- begin
- readln(penghitung);
- for i:=1 to penghitung do
- begin
- readln(angka[i]);
- inc(kandidat[angka[i]]);
- end;
- for i:=1 to penghitung do
- if max<=kandidat[i] then (*karena nilai i menaik, maka akan mencari modus terbanyak dan nilai terbesar*)
- begin
- max:=kandidat[i];
- n:=i;
- end;
- writeln(n);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement