Question

FORTRAN用数组方式读入下表学生学号及对应的数学成绩，对下面学生的数学成绩进行排序,列出排序后的结果

用数组方式读入下表学生学号及对应的数学成绩，对下面学生的数学成绩进行排序（按大到小排序），并列出排序后的结果（学号及成绩）。

学号
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010

成绩
48
83
62
78
95
86
67
52
90
85

Answer 1

dimension no(100),score(100)
integer no,score
open(1,file='cj.dat')
do 10 i=1,10
read(1,*) no(i),score(i)
10 continue
close(1)
do 20 i=1,9
do 30 j=i+1,10
if (score(i).lt.score(j)) then
k=score(i)
score(i)=score(j)
score(j)=k
k=no(i)
no(i)=no(j)
no(j)=k
end if
30 continue
20 continue
do 40 i=1,10
write(*,*)no(i),score(i)
40 continue
pause
end

追问

无法运行

追答

dimension no(100),score(100)
integer no,score
do 10 i=1,10
read(*,*) no(i),score(i)
10 continue
do 20 i=1,9
do 30 j=i+1,10
if (score(i).lt.score(j)) then
k=score(i)
score(i)=score(j)
score(j)=k
k=no(i)
no(i)=no(j)
no(j)=k
end if
30 continue
20 continue
do 40 i=1,10
write(*,*)no(i),score(i)
40 continue
pause
end

追问

输入后无法给出结果- -

追答

按学号、成绩一一对应输入。
1001 48
1002 83
1003 62
...............
dimension no(100),score(100)
integer no,score
n=10
do 10 i=1,n
read(*,*) no(i),score(i)
10 continue
do 20 i=1,n-1
do 30 j=i+1,n
if (score(i).lt.score(j)) then
k=score(i)
score(i)=score(j)
score(j)=k
k=no(i)
no(i)=no(j)
no(j)=k
end if
30 continue
20 continue
do 40 i=1,n
write(*,*)no(i),score(i)
40 continue
pause
end