El error es que no estás incrementando en una variable el valor una vez encontrado el valor que se repite.
Lo que estás haciendo es buscar un elemento en un vector y decir si el elemento está en el vector, pero no si se repite.
Para hacer lo que estás pidiendo es necesario crear una variable, que se puede llamar numero_repeticiones, y allí ir almacenado la cantidad de elemetos que se repite un elemento en el vector si es que lo hace.
Después al final preguntar si el número de repeticiones es mayor a 1 (se repite) y en tal caso mostrar al usuario que se repite, de lo contrario informar que no se repite o que no está en el vector
El programa quedaría así:
const
N = 27
var
arreglo : vector[N] numerico
i, k : numerico
encontrado : logico
numero_repeticiones : numerico
inicio
cls()
numero_repeticiones = 1
i = 1
mientras (i <= N)
{
arreglo[i] = random(100)
i = i + 1
}
i = 1
desde i = 1 hasta N
{
imprimir (arreglo[i])
imprimir (" ")
}
imprimir("\n")
imprimir("Escriba el numero a buscar: ")
leer(k)
i = 1
encontrado = FALSE
mientras (i <= N)
{
si(arreglo[i] == k)
{
encontrado = TRUE
numero_repeticiones = numero_repeticiones + 1
}
i = i + 1
}
si (encontrado)
{
si (numero_repeticiones > 1) {
imprimir ("\n Elemento ", k, " se repite en el vector")
sino
imprimir ("\n Elemento no se repite en el vector ")
}
sino
imprimir ("\n Elemento no está en el vector ")
}
fin