Respuesta:
Algoritmo AdivinaVocal
Definir vocalSecreta, vocalUsuario Como Caracter
vocalSecreta <- "a"
vocalUsuario <- ""
Mientras vocalUsuario <> vocalSecreta Hacer
Escribir "Adivina la vocal secreta (a, e, i, o, u): "
Leer vocalUsuario
Si vocalUsuario = vocalSecreta Entonces
Escribir "¡Correcto! La vocal secreta es ", vocalSecreta
Sino
Escribir "Incorrecto. ¡Sigue intentando!"
FinSi
FinMientras
FinAlgoritmo
Explicación:
En este programa, se define la variable 'vocalSecreta' para guardar la vocal secreta (en este caso, "a"). Luego, se le pide al usuario que intente adivinar la vocal secreta tantas veces como sea necesario hasta que la adivine. En cada intento, se lee la vocal ingresada por el usuario y se compara con la vocal secreta. Si son iguales, se muestra un mensaje de "¡Correcto!" y se sale del bucle. Si no son iguales, se muestra un mensaje de "Incorrecto. ¡Sigue intentando!" y se vuelve a pedir al usuario que intente adivinar la vocal secreta.