smallN2.f90

I suggest you either typed  this as it appears into the compiler, or as an easier way, just copy and paste it!

Note: I do not claim the program will 100% work, but I give it my best. If it doesn't, try tweaking it yourself, or email me about it, and I'll modify and post the improved version later. Good luck!

PROGRAM small_n_value
IMPLICIT NONE

INTEGER :: first, temp, index, i, j, k
REAL, DIMENSION(1:10) :: array

PRINT*, "Please enter 10 numbers. Any ten numbers."
READ*, array

DO i=1, 10
index=i

DO j=i+1, 11

IF (array(j) < array(i)) THEN
array(i)=array(j)
index=j
END IF

END DO

END DO

PRINT*
PRINT*, "The smallest value is:", array(1)

END PROGRAM small_n_value