program main
real *8 s(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
real S(10)
write(*,*) MaxVal( S ) , MinVal( S ) !最大值，最小值
write(*,*) MaxLoc( S ) , MinLoc( S ) !最大值下标，最小值下标
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024