各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/27 13:12:06
各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.
xRn@]?ܝ-.'(H8rfmXLЦ)U@@J !]Dvkw{x~5}7I˟\585{HjЋ$f=lΥ?qs",@4 Ov ϶t|.nXt۷C72獗MoFsŋT{ɱU&j;H<#L6ʼnB^T, ;NMR+2UbS*n!T%u%`ބ(!M+IE)[LF"OrI`KD@f/yeK.)y

各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.
各位fortran语言大侠们,求助!题目如下:
有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.

各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.
PROGRAM TEST !冒泡排序法
IMPLICIT NONE
INTEGER,PARAMETER::N=10
INTEGER,DIMENSION(N)::A=(/5,6,3,9,12,18,1,10,25,21/)
INTEGER::I,J,T
PRINT 100,A
100 FORMAT(1X,10I5)
DO I=1,N-1
DO J=1,N-1
IF(A(J)>A(J+1))THEN
T=A(J)
A(J)=A(J+1)
A(J+1)=T
END IF
END DO
END DO
PRINT 100,A
END PROGRAM TEST