Pak Dengklek memberikan Anda N (1 ≤ N ≤ 100.000) buah bilangan bulat yang masing-masing di antara 1 sampai 1.000. Tentukanlah modus terbesar dari bilangan-bilangan tersebut.
Format Masukan
Baris pertama berisi sebuah bilangan bulat N. N baris berikutnya berisi bilangan-bilangan tersebut.Format Keluaran
Sebuah baris berisi modus terbesar dari kumpulan bilangan tersebut.Contoh Masukan
6 1 3 2 4 1 4
Contoh Keluaran
4
Program saya hampir sama, seperti ini :
BalasHapusprogram modus_terbesar;
var b,c,d:integer;
a,i:longint;
x:array[1..1001] of integer;
begin
for i:=1 to 1001 do
begin
x[i]:=0;
end;
readln(a);
for i:=1 to a do
begin
readln(b);
x[b]:=x[b]+1;
end;
c:=0;
d:=0;
for i:=1 to 1001 do
begin
if x[i] >= c then
begin
c:=x[i];
d:=i;
end;
end;
writeln(d);
end.
Saya tidak tahu perbedaan dari program kita bang, tapi punya saya wrong answer. Kenapa ya?