Leer 500 números enteros e indicar cuántos son positivos en PSlnet
Respuestas a la pregunta
Respuesta:def cantidad_positivos (x):
positivos = 0
j = 0
while j = 500
read x
j = j + 1
if x > 0
positivos = positivos + 1
return positivos
Explicación:
Respuesta:
Proceso leer_enteros
definir i,num,pos como entero;
pos <- 0;
Para i<-1 Hasta 500 Hacer
Escribir "Ingresar un numero: ";
Leer num;
Si num>0 Entonces
pos <- pos+1;
FinSi
FinPara
Escribir "Positivos: ",pos;
FinProceso
Explicación:
El ejercicio nos dice leer 500 números, es decir, que el usuario al ingresar dicha de cantidad de números, de todos ellos cuantos son números positivos, es decir, si son mayores que cero. Para ello se utilizo un bucle "Para" para poder ingresar los 500 números y dentro del bucle poder saber si dicho número ingresado es mayor que cero (0), si cumple dicha condición lo almacenará en una variable "pos", y poder acumular la cantidad de números que son positivos.
![](https://es-static.z-dn.net/files/de9/3abe97194fa6f9829611f7299e393404.png)