برنامه نویسی نمونه کد فرترن به صورت نزولی مرتب کردن

کد فرترن برنامه ای که تعداد دلخواه عدد رو میگیره و اونا رو به ترتیب نزولی(از بزرگ به کوچک) مرتب میکنه

 

 

 

n= تعداد اعدادی که میخواید وارد کنید

 

 

 

PROGRAM ny

 

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)=MAXVAL(a)

 

9. a(MAXLOC(a))=MINVAL(a)

 

10. END DO

 

11. PRINT*,b

 

12. END