用fortran编写程序，求出一维数组S（10）中的最大元素和最小元素，并记下它们所在的下标，并输

用fortran编写程序，求出一维数组S（10）中的最大元素和最小元素，并记下它们所在的下标，并输

real S(10)
write(*,*) MaxVal( S ) , MinVal( S ) !最大值，最小值
write(*,*) MaxLoc( S ) , MinLoc( S ) !最大值下标，最小值下标

program main
real *8s(10)
read(*,*)s(1:10)！这里需要你对这个数组进行赋值
max=s(1)
min=s(1)
t1=0.d0
t2=0.d0
do i=1,10
if (s(i).gt.max) then
max=s(i)
t1=i
endif
if(s(i).lt.min) then
min=s(i)
t2=i
endif
enddo
write(*,*)'最大值+位置',max,t1,'最小值+位置',min,t2
end

参考资料：fortran77程序化结构设计--谭浩强，田淑清