Ejercicio de Vector de Cadena

Algoritmo saveJustIf Definir i, cantPal Como Entero; Definir palVec, pal Como Caracter; i=0; Escribir "Digite la cantidad de palabras que desea guardar en el vector"; Leer cantPal; Dimension palVec[cantPal]; Repetir Escribir "Digite la palabra"; Leer pal; Si (Longitud(pal)%2==0) Entonces palVec[i]=pal; Escribir "Se guardó correctamente en el vector, pues la longitud de la palabra es par"; Sino Escribir "No se guardó en el vector, pues la longitud de la palabra es impar"; i=i-1; FinSi i=i+1; Hasta Que i==cantPal Escribir "El vecetor quedó de la siguiente forma: "; Para i=0 hasta cantPal-1 Con Paso 1 Hacer Escribir palVec[i]; FinPara FinAlgoritmo