Función Buscar

func buscar(a:array [ 1...n] de Entero, c: Entero) dev (r: Entero){
var
j:Entero
alg
j:=1 //1 OE
mientras a[ j]Y j < style="font-weight: bold;">fmientras
si a[ j]=c //2 Oe
r:=j //1 OE
| otras
r:=0 //1 OE
fsi
falg

Caso Mejor:
T(n) = 1+2+2+1 = 6 OE

Caso peor:
T(n) = 1 + 6(n-1) +4+2+1 = 6n+2

Caso medio:
T(n) = 3n +6 Ya que todos los casos son equiprobables.