Question

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

Answer 1

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

Answer 2

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