Cod sursa(job #2133954)

Utilizator dinugaftonGafton Dinu dinugafton Data 17 februarie 2018 14:49:40
Problema Elementul majoritar Scor 70
Compilator fpc Status done
Runda Arhiva educationala Marime 0.76 kb
Program majoritar;
                  var n,i,j,rs:longint;
                      v:array[1..1000000]of longint;
                      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]);
     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;
                          if (i=n-1)and(j=n)then write(fo,'-1');
                     end;
     close(fo);
end.