// --- Procedimiento para ingresar los caracteres --- SubAlgoritmo IngresoCad(Cad, limS Por Referencia) Definir i Como Entero //pregunto HASTA cuantos caracteres quiere ingresar Escribir "¿Cuántos caracteres desea ingresar? (máx. 10)" Leer limS //control Mientras limS > 10 o limS < 1 hacer Escribir "error: ¿Cuántos caracteres desea ingresar? (máx. 10)" Leer limS FinMientras //ingreso de datos Para i <- 1 Hasta limS Con Paso 1 Hacer Escribir "Ingrese el carácter ", i, ":" Leer Cad[i] FinPara FinSubAlgoritmo // --- Función que cuenta repeticiones --- SubAlgoritmo cant <- CarRep(Cad, limS) Definir car Como Caracter Definir i, cant Como Entero cant <- 0 Escribir "Ingrese el carácter que desea buscar:" Leer car Para i <- 1 Hasta limS Con Paso 1 Hacer Si Cad[i] = car Entonces cant <- cant + 1 FinSi FinPara FinSubAlgoritmo // --- Procedimiento para mostrar la cadena completa --- SubAlgoritmo MostrarCadena(Cad, limS) Definir i Como Entero Escribir "La cadena ingresada es: " Para i <- 1 Hasta limS Con Paso 1 Hacer Escribir Cad[i] FinPara FinSubAlgoritmo Algoritmo ContarCaracteres Definir Cad Como Caracter Definir limS, cant Como Entero Dimension Cad[10] // T2: Ingreso de datos IngresoCad(Cad, limS) // T3: Cálculo de repeticiones cant <- CarRep(Cad, limS) // T4: Mostrar resultado Escribir "El carácter se repite ", cant, " veces." // T5: Mostrar la cadena completa MostrarCadena(Cad, limS) FinAlgoritmo