/*

      midrange - Numerator program to calculate the midrange of
                 a series of numbers.  The midrange is defined to
                 be the arithmetic mean of the smallest and largest
                 values.

          Set the verbose variable to a non-zero value 

               verbose = 1

          to make queries and produce other prompts.  
*/


if (verbose) 
   "Enter next number\n"
   "Enter 0 to end list\n"
endif
get val
if (val)
   smallest = smallest == 0 ? val : smallest 
   smallest = val < smallest ? val : smallest
   largest  = val > largest  ? val : largest
   do "midrange"
endif
if (verbose)
   "Midrange = "
endif
(smallest + largest) / 2
smallest = 0
largest  = 0