Cod sursa(job #1347876)
| Utilizator |  Laura Caliman laura.caliman |
Data | 19 februarie 2015 12:21:00 |
|---|---|---|---|
| Problema | Elementul majoritar | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.35 kb |
var n,i,j,k,m,t:longint;
a:array[1..1000000] of longint;
begin
assign(input,'elmaj.in');
assign(output,'elmaj.out');
reset(input);
rewrite(output);
read(n);
t:=n div 2 + 1;
for i:=1 to n do begin
read(j);
inc(a[j]);
if a[j]>=t then
m:=j;
end;
if m=0 then write(-1) else
write(m,' ',a[j]);
end.