PROGRAM SORT
DIMENSION A(100)
INTEGER K, I, J, N, AMIN_POS
REAL AMIN, BUFFER
1 FORMAT(100F5.1)
PRINT *, 'ENTER SIZE OF ARRAY'
READ *, N
OPEN(1, FILE='MASSIV.TXT')
READ (1, *) (A(I), I = 1, N)
CLOSE(1)
PRINT 1, (A(I), I = 1, N)
K = 1
DO J = 1, N-1
AMIN = A(K)
DO I = K+1, N
IF (A(I) < AMIN)THEN
AMIN = A(I)
AMIN_POS = I
END IF
END DO
print*, 'min'
print*, amin, amin_pos
print*, 'swap'
print*, a(k)
print*, ''
BUFFER = A(AMIN_POS)
A(AMIN_POS) = A(K)
A(K) = BUFFER
K = K + 1
PRINT 1, (A(I), I = 1, N)
END DO
END PROGRAM