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