Realizar un algoritmo que permita pedir 50 números naturales y determine e imprima cuantos son pares, impares, positivos y negativos
Respuestas a la pregunta
Inicio
ENTERO cpar,cimpar,cpo,cne=0
Para i desde 1 hasta 50
leer num
SI num % 2 = 0
cpar = cpar + 1
SINO
cimpar = cimpar + 1
FIN SI
SI num > 0
cpo = cpo + 1
SINO SI num < 0
cne = cne + 1
FIN SI
Fin para
IMPRIMIR cpar, cimpar,cpo,cne
Fin
A continuación se muestra algoritmo en pseint que muestra por pantalla los números pares, impares, negativos, y positivos encontrado de un total de 50 números ingresados por el usuario.
Algoritmo paresImpares50enteros
- // Definición e inicio de variables
Definir num,imp,par,neg,pos,x, p, n, po, i Como Entero
Dimension imp[50]
Dimension par[50]
Dimension neg[50]
Dimension pos[50]
p <- 0
i <- 0
n <- 0
po <- 0
- // Ingreso de datos
Para x<-1 Hasta 50 Hacer
Escribir 'Número natural ',x,': ' Sin Saltar
Repetir
Leer num
Hasta Que num <> 0
- // Determinar números pares e impares
Si num MOD 2=0 Entonces
p <- p+1
par[p] <- num
SiNo
i <- i+1
imp[i] <- num
FinSi
- // Determinar números positivos y negativos
Si num >=0 Entonces
po <- po+1
pos[po] <- num
SiNo
n <- n+1
neg[n] <- num
FinSi
FinPara
- // Imprimir resultados
Escribir 'Números pares: '
Para x<-1 Hasta p Hacer
Escribir par[x], " ," Sin Saltar
FinPara
Escribir " "
Escribir 'Números impares: '
Para x<-1 Hasta i Hacer
Escribir imp[x], " ," Sin Saltar
FinPara
Escribir " "
Escribir 'Números positivos: '
Para x<-1 Hasta po Hacer
Escribir pos[x], " ," Sin Saltar
FinPara
Escribir " "
Escribir 'Números negativos: '
Para x<-1 Hasta n Hacer
Escribir neg[x], " ," Sin Saltar
FinPara
Escribir " "
Escribir ' ***Cantidad*** '
Escribir 'Pares impares positivos negativos"
Escribir ' ', p, " ", i, " ", po, " ", n
FinAlgoritmo
Para saber más acerca de algoritmo para identificar pares e impares, positivos, y negativos consulte https://brainly.lat/tarea/5787565
#SPJ2
