--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--PROYECTO: Practicas de Intr. Programación 99/00. Práctica2- Ej 1.1.1
--FICHERO: Media.adb
--FECHA: Octubre-Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este programa hace la media de cuantos numeros se quiera
with text_io, Ada.integer_text_io, Ada.float_text_io;
use text_io, Ada.integer_text_io, Ada.float_text_io;
procedure media is
   -- declaracion de constantes y variables
   numero: float;
   acumulacion: float;
   numeroSumandos: integer;
   i: integer;

begin
   acumulacion := 0.0;
   i := 1;
   put ("Introduce el numero de numeros a hacer la media: ");
   get (numeroSumandos);
   put_line("Introduce los numeros separandolos por Enter o espacios");

   WHILE i<=numeroSumandos loop
      get(numero);
      acumulacion:=acumulacion+numero;
      i := i+1;
   end loop;

   acumulacion := acumulacion/float(numeroSumandos);
   put ("la media es: ");
   put (acumulacion,0,4,0);

end media;