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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/13 04:22:00
各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.各位fortran语

各位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