real a(10)
integer n
open(10,file="test7.in")
Read(10,*) n
Read(10,*) (a(i),i=1,n)
call  maxmin(n,a,amax,amin)
print*,"max=",amax,"min=",amin
stop
end


subroutine maxmin(n,a,amax,amin)
real a(n)
amax = -1.E+32
amin = 1.E+32
do i =1,n
if(a(i).gt.amax)then
amax=a(i)
endif
if(a(i).lt.amin)then
amin=a(i)
endif
enddo
return
end