Programa en Pseint que genere los números pares del 1 a 20 y que aparte diga cuales nos son números pares , utilizando vector

Programa en Pseint que genere los números pares del 1 a 20 y que aparte diga cuales nos son números pares , utilizando vector.

Solución:

Proceso pares
definir par,a,b como entero;
Dimension par(10);
a<-0;
b<-1;
Para b<-1 Hasta 20 Con Paso 1 Hacer
Si b%2=0 Entonces
par(a)<-b;
a<-a+1;
Sino
Escribir "No es Par: ",b;
FinSi
FinPara
Escribir "Los Pares ";
Para a<-0 Hasta 9 Con Paso 1 Hacer
Escribir par(a);
FinPara
FinProceso