program EX101c IMPLICIT NONE INTEGER X(10),L,I,K READ(*,*)(X(i),I=1,10) L=X(1) DO 10 I=1,10 IF (X(I).gt.L) THEN L=X(I) K=I ENDIF10 continuec ENDDO WRITE(*,*) '这些数中的最大值为：',L,'此数的序号为：',K END
READ*,(X(I),I=1,10)
