Ejercicio 8

 Plantee e implemente un programa en PASCAL que acepte valores reales como
entrada (por teclado) y que muestre por  pantalla la media aritmética de los
valores introducidos. El programa terminará cuando el usuario pulse enter.


PROGRAM aritmetica(input,output);
(*Programa que haga la media de los numeros introducidos por teclado separados por espacios al pulsar enter*)
VAR
        n:real;
        suma:real;
        media:real;
        elementos:integer;
BEGIN
        write('Escriba los numeros separados por espacios,pulse 0 para acabar:');
        suma:=0;
        media:=0;
        elementos:=0;
        REPEAT
                BEGIN
                read(n);
                elementos:=elementos+1;
                suma:=n+suma;
                END;
         UNTIL n=0;
         elementos:=elementos-1;
         media:=suma/elementos;
         writeln('La media aritmetica de los numeros introducidos es:',media:3:2,'');
END.

Ejemplo de ejecución