Pagini recente » Statistici victor santu (vsantu) | Istoria paginii utilizator/007 | Diferente pentru utilizator/buzu.tudor67 intre reviziile 7 si 5 | Cod sursa (job #2133938)
Program majoritar;
var n,i,rs,k,j:longint;
v:array[1..10000]of int64;
fi,fo:text;
begin
assign(fi,'elmaj.in');reset(fi);
assign(fo,'elmaj.out');rewrite(fo);
readln(fi,n);
for i:=1 to n do
read(fi,v[i]);
k:=1;
for i:=1 to n-1 do
begin
rs:=1;
for j:=i+1 to n do
if v[i]=v[j] then inc(rs);
if (rs>=(n div 2)+1) then begin
write(fo,v[i],' ',rs);break;end
else inc(k);
end;
if k=n then write(fo,'-1');
close(fo);
end.