• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Leer 30 números mostrar cuantos son positivos, cuantos negativos y cuantos neutros.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Proceso PositivosNegativosYNeutros2
    negativos <- 0;
    neutros <- 0;
    positivos <- 0;
    Para i<-1 Hasta 30 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de un numero:";
        Leer un_numero;
        Si un_numero<0 Entonces
            negativos <- negativos+1;
        FinSi
        Si un_numero = 0 Entonces
            neutros <- neutros+1;
        FinSi
        Si un_numero>0 Entonces
            positivos <- positivos+1;
        FinSi
        Escribir "";
    FinPara
    Escribir "Valor de negativos: ", negativos;
    Escribir "Valor de neutros: ", neutros;
    Escribir "Valor de positivos: ", positivos;
FinProceso