program ch0602 ! The program reads up to number_of_people weights ! into the array Weight ! Variables used ! Weight, holds the weight of the people ! Person, an index into the array ! Total, total weight ! Average, average weight of the people ! Parameters used ! NumberOfPeople ,10 in this case. ! The weights are written out so that ! they can be checked ! implicit none integer , parameter :: number_of_people = 10 real :: total = 0.0, average = 0.0 integer :: person real , dimension(1:number_of_people) :: weight do person=1,number_Of_people print *, ' type in the weight for person ',person read *,weight(person) total = total + weight(person) enddo average = total / number_of_people print *,' The total of the weights is ',total print *,' Average Weight is ',average print *,' ',number_of_people,' Weights were ' do person=1,number_of_people print *,weight(person) enddo end program ch0602