高分求 fortran小程序（对懂得的人来说很easy）在线等

program chengji
implicit none

integer::i,maxa,maxj
!maxa,maxj分别为平均分、结构力学成绩最高者编号
integer,parameter::n=5
!假设有5人，可根据实际更改
real,dimension(1:n)::l,c,j,a
character(len=5),dimension(1:n)::name

print*,'依次输入姓名及其理论力学、材料力学、结构力学成绩：'
read*,(name(i),l(i),c(i),j(i),i=1,n)

!计算平均成绩
do i=1,n
a(i)=(l(i)+c(i)+j(i))/3
end do

!找出平均成绩最高者
maxa=1
do i=2,n
if(a(i)>a(maxa)) maxa=i
end do
print*,'平均分最高者为：',name(maxa),'其平均分为：',a(maxa)

!找出结构力学成绩最高者
maxj=1
do i=2,n
if(j(i)>j(maxj)) maxj=i
end do
print*,'结构力学最高分者为：',name(maxj),'其成绩为：',j(maxj)

end program chengji

如果需要排名的话可以自己再加一串小程序哦，这个我已经运行检验过了，可以直接用

你没说出用什么格式阿。
是输出txt还是其他的，
还有输入的东西，要求，等等等。。。。。

帮你顶一下吧,要是C啊pascal什么的还能帮帮你,这个不会...郁闷

晕菜，有什么难的。
只是你有好多条件你没有说清楚，不好编，比如你每次程序运行时，需要手工输入数据（很烦的），还是将数据放入txt文件（分一个or三个文件）中，而输出结果又将怎么表示？
一共有多少学生，数量固定or输入or根据数据判定？
等等等等
你都不说清楚，让人怎么编？

重赏之下必有勇夫。