begin
    integer arr[100], target, inicio, fim, meio;
    integer busca_binaria(integer arr, integer
target);
    begin
        inicio := 0;
        fim := length(arr) - 1;
        while inicio <= fim do
            meio := (inicio + fim) div 2;
            if arr[meio] = target then
                return meio;
            else if arr[meio] < target then
                inicio := meio + 1;
            else
                fim := meio - 1;
            end;
        return -1;
    end;
end;

O algoritmo de busca binária apresentado anteriormente possui