definir nom como texto
can<-10
Dimension nombre[can]
para i<-1 hasta can hacer
Imprimir "digite elemento"
leer nom
nombre[i]<- nom
FinPara
para j<-1 hasta can Hacer
vector<-nombre[j]
igua<-0
primera<-"si"
para l<-1 hasta can Hacer
si vector = nombre[l] entonces
igua<-igua+1
si j>l Entonces
primera<- "no"
FinSi
FinSi
FinPara
si primera= "si" y igua>1 Entonces
Mostrar "existen " ,igua ," trabajadores con el mismo nombre ", vector
fin si
FinPara
FinAlgoritmo
No hay comentarios:
Publicar un comentario