Cod sursa(job #894303)
Utilizator | Rares Cheseli rares96cheseli | Data | 26 februarie 2013 20:37:40 |
---|---|---|---|
Problema | Elementul majoritar | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.58 kb |
{element majoritar-infoarena}
program elem_maj;
type vect=array[0..1000000]of longint;
var a:vect;
i,n,max,nra,nr,x:longint;
f,g:text;
begin
assign(f,'elmaj.in');reset(f);
assign(g,'elmaj.out');rewrite(g);
readln(f,n);
max:=-1;
for i:=1 to n do begin
read(f,x); inc(a[x]);
if a[x]>max then begin
max:=a[x];
nr:=x;
end;
end;
if max>0 then writeln(g,max,' ',nr)
else writeln(g,-1);
close(f); close(g);
end.