Inicio

Entero sw,n,i

Carácter lista[0,30] nombre [2 a 10]

Sw  0

Monstrar(“introduzca el número de elementos”)

Leer (n)

Repetir desde (i=1;1<n; i=i +1)

                 Leer(lista[i])

Fin repetir desde

Monstrar(“introduzca el número a buscar”)

Leer(nombre)

Repetir desde i=1; i<=n; i=i+1)

     Si (lista(i) ==nombre)

     Entonces 

        Sw= 1

    Fin si 

 Fin repetir desde 

Si (sw== 1)

 Entonces

 Mostrar (“nombre encontrado”)

Sino

Mostrar (“nombre no existente”)

Fin si 

Fin

​

​

​

​

​