کد فرترن برنامه ای که تعداد دلخواه عدد رو میگیره و اونا رو به ترتیب صعودی(از کوپک به بزرگ) مرتب میکنه
n=تعداد اعدادی میخواید وارد کنید
PROGRAM nyy
1. IMPLICIT NONE
2. INTEGER::n,i
3. INTEGER,ALLOCATABLE::a(:),b(:)
4. READ*,n
5. ALLOCATE (a(n),b(n))
6. READ*,a
7. DO i=1,n
8. b(i)=MINVAL(a)
9. a(MINLOC(a))=MAXVAL(a)
10. END DO
11. PRINT*,b
12. END
13.
14.