Pseudocódigo 34

Con el ciclo FOR, elaborar un algoritmo, el cual una cantidad de N valores numéricos, y mostrar en pantalla cuantos de esos valores son: positivos, negativos, múltiplos de 15 y mostrar de esos valores la suma de los pares.

 Proceso Valores_Enteros  //Cruz Sosa Aldo ING.Biomedica "B"
    Definir n,i,cneg,cpos,cmulti15,valor,avalpar Como Real;
    cneg<-0;
    avalpar<-0;
    cmulti15<-0;
    cpos<-0;
    Escribir " Cuantos Valores se Procesaran? ";
    leer n;
    para i<-1 hasta n hacer
        Escribir " Dar valor No. ",i;
        leer valor;
        si valor>0 Entonces
            cpos<-cpos+1;
        SiNo
            si valor<0 Entonces
                cneg<-cneg+1;
            SiNo
                Escribir " Valor 0 no Procesado ";
            FinSi
        FinSi
        si valor MOD 2==0 entonces
            avalpar<-avalpar+valor;
        FinSi
    FinPara
    Escribir " Valores Positivos ",cpos;
    Escribir " Valores Negativos ",cneg;
    Escribir " Valores Multiplos de 15: ",cmulti15;
    Escribir " Suma de Numeros Pares: ",avalpar;
FinProceso