Programación General > Pascal
Ejercicios Resueltos
Hubologista:
Ejercicio 5
Enunciado
Crear un programa que permita al usuario ingresar 50 números enteros. El programa deberá realizar lo siguiente:
* Calcular y mostrar cuántos números 0 (cero) ingresó el usuario.
* Calcular y mostrar el promedio de todos los números positivos ingresados.
* Calcular y mostrar la sumatoria de los números negativos ingresados.
Codificación
--- Código: Pascal ---program 50numeros;var n,cantceros,cantpos,totpos,totneg,i:integer; prompos:real; begin cantceros:=0; cantpos:=0; totpos:=0; totneg:=0; for i:=1 to 50 do begin writeln('Ingrese un numero'); readln(n); if(n=0) then begin cantceros:=cantceros+1; end else if(n>0) then begin cantpos:=cantpos+1; totpos:=totpos+n; end else totneg:=totneg+n; end;prompos:=totpos/cantpos;writeln(cantceros,prompos,totneg);end.
eternity:
creo que esta de mas decir que si hay "programadores" que no saben hacer eso, entonces seria mejor que se dediquen a otra cosa no? :bad:
elchamby:
¿tu cuando empezaste sabias hacer todo eso?
:argh:
eternity:
si, yo nací sabiendo :angry:
vos no?
Hubologista:
Bueno, también hay que tener en cuenta lo siguiente:
--- Citar ---creo que esta de más decir que si hay "programadores" que no saben hacer eso, entonces seria mejor que se dediquen a otra cosa no?
--- Fin de la cita ---
En eso estoy de acuerdo, está más que claro. Justamente estos ejercicios no están hechos para programadores, están hechos para gente que quiera aprender a programar. Y como dijo elchamby, para aprender a programar es necesario empezar con ejercicios fáciles. A algunas personas les costarán menos que a otras, pero nadie empieza con lo avanzado. Por otra parte, aunque no sea tan relevante para el caso, no todo el que tiene que aprender a programar se va a dedicar a la programación.
Saludos :hola:
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa