domingo, 17 de julio de 2011

■ Pascal 004 ► Obtener el promedio de "n" valores

Ejercicio 004: Leer "n" números enteros y obtener el promedio.

Program Pas_004;
Uses crt;
Var
     num, i, n : integer;
     suma, prom : real;
Begin
     ClrScr;
     Write ('Cuantos numeros son: ');
     ReadLn (n);
     For i := 1 to n do
     Begin
          Write ('Ingresa numero: ');
          ReadLn (num);
          suma := suma + num;
     End;
     prom := suma / n;
     Write ('El promedio es: ',prom:2:1);
     ReadKey;
End.

No hay comentarios:

Publicar un comentario