program bestanhvan;
uses crt;
var i,t,n:integer;
a:array[1..100] of integer;
begin
    read(n);
    for i:=1 to n do
    begin
    read(a[i]);
    t:=t+a[i];
    end;
    write(t div n);
    readln;
    end.

uses crt;
var A : array [1 .. 4999999] of longint;
    i, j, N, X : byte;
    f1, f2 : text;
    
begin
    clrscr;
    assign(f1, 'Code.inp'); reset(f1);
    assign(f2, 'Code.out'); rewrite(f2);
    N := 0;
    while not eof(f1) do
        begin
            N := N + 1;
            read(f1, A[N]);
        end;

    for j := N downto 2 do 
        for i := 1 to j - 1 do
            if A[i] > A[i + 1] then
                begin
                    X := A[i];
                    A[i] := A[i + 1];
                    A[i + 1] := X;
                end;
            
    for i := 0 to N - 1 do
        if A[i + 1] <> i then
            begin
                write(f2, i);
                break;
            end;
        
    close(f1); close(f2);
end.