REAL DATA(300)
REAL DATAMIN
INTEGER NDATA,K

READ(*,*) NDATA
DO K=1,NDATA
READ(*,*)  DATA(K)
END DO

CALL SAISHO(             )

DO K=1,NDATA
WRITE(*,*)  DATA(K)
END DO
WRITE(*,*) "Minimum=",DATAMIN

END
!============================
SUBROUTINE SAISHO(N,A,B)
REAL A(300),B,TMP
INTEGER N,K

TMP=A(1)
DO K=2,N
IF(             ) THEN
TMP=A(K)
  ENDIF
END DO
B=TMP

RETURN
END