Mai intai trebuie sa te autentifici.

Cod sursa(job #2133952)

Utilizator dinugaftonGafton Dinu dinugafton Data 17 februarie 2018 14:43:18
Problema Elementul majoritar Scor 70
Compilator fpc Status done
Runda Arhiva educationala Marime 0.8 kb
Program majoritar;
                  var n,i,j,rs,k: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]);
     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.