program CalcularPromedioDeValoresIngresadosPorTeclado
// la variables que usare en mi programa
var
valor_ingresado: integer;
cantidad_valores_ingresados: integer;
sumandos: integer;
promedio: integer;
begin
// inicializo sumandos donde ire sumando los valores ingresados por usuario
// si no hago cuanto sume esta variable mas el valor ingresado por el usuario
// me ocasinaria un error, ya que de todas formas al ser ambas variables del mismo
// tipo, sumandos esta indefinida, por se inicializa en 0
sumandos:= 0
// aca almacenera la cantidad de valores que usuario va ingresando...
cantidad_valores_ingresados:= 0;
// se ingresa el primer valor
read( valor_ingresado );
// hasta que no se ingrese como valor "9999" el programa ejecuta
// lo que esta dentro de este while loop
while( valor_ingresado <> 9999 ) do begin
// voy sumando valor_ingresado con el anterior
sumandos:= sumandos + valor_ingresado;
// es mas que obvio lo que hago aqui
cantidad_valores_ingresados:= cantidad_valores_ingresados + 1;
// vuelta al ciclo
read( valor_ingresado )
end;
// se ha terminado de ingresado valores
// calculo el promedio
// aqui el truco esta en usar la instruccion DIV, la cual me
// tira la parte entera de una division
promedio:= sumandos DIV cantidad_valores_ingresados
// finalizo
writeln( 'El promedio de los valores ingresados es: ', promedio );
readln();
readln();
end.