Question

Leer 500 números enteros e indicar cuántos son positivos en PSlnet

Answer 1

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:

Answer 2

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.