Var
     n,m,k,d,min,max: longint;
Begin
    Readln(n);
    Readln(min);
    max:=min;
    k:=2;
    While (k<=n) do
    begin
     ReadLn(d);
     if (d<min) then min:=d;
     if (d>max) then max:=d;
     k:=k+1;
     end;
     Writeln((min+max)/2);
End.