pseint/determinarnumeros at main · simplerandomuser/pseint · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Algoritmo DeterminarNumeros
	Definir par,impar,positivo,negativo,contador,numero Como Real
	par <- 0
	impar <- 0
	positivo <- 0
	negativo <- 0
	Escribir 'Programa para contar numeros'
	Escribir 'Positivos, Negativos, Pares, e Impares'
	Escribir ''
	Escribir 'Ingrese los 40 números (1 por uno): '
	Para contador<-1 Hasta 40 Hacer //Hacer un leeer de 40 dígitos
		Leer numero
		Si numero MOD 2=0 Entonces //Mod = Probar si dos números pueden dividirse de manera exacta o aislar el resto de un cálculo de división
			par <- par+1
		SiNo
			impar <- impar+1
		FinSi
		Si numero>0 Entonces
			positivo <- positivo+1
		SiNo
			Si numero<0 Entonces
				negativo <- negativo+1
			FinSi
		FinSi
	FinPara
	Escribir 'Pares: ',par
	Escribir 'Impares: ',impar
	Escribir 'Positivos: ',positivo
	Escribir 'Negativos: ',negativo
FinAlgoritmo