Cod sursa(job #1347859)

Utilizator laura.calimanLaura Caliman laura.caliman Data 19 februarie 2015 12:15:12
Problema Elementul majoritar Scor 80
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
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 begin
      m:=j;
      k:=a[j];
    end;
  end;
  write(m,' ',k);
end.