real,allocatable:: a(:)
integer n
open(10,file="test7.in")
Read(10,*) n
allocate(a(n))
Read(10,*) a(:)
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