program mean
c This program computes the mean of a list of numbers.
c A function subprogram finds the mean.
real numbers(100), avg
integer m
print *, "How many numbers are on your list?"
print *, "(no more than 100, please)"
read *, m
do i = 1, m
print *, "Enter your next number:"
read*, numbers(i)
end do
print *, "The average is", avg(m,numbers)
print *, "Goodbye"
end
function avg(n,list)
real avg, list(100), sum
integer n
sum = 0
do i=1, n
sum = sum + list(i)
end do
avg = sum/n
end