输人 100 名学生的学号和五门课的成线,要求统计并打印出总分成绩最高学生的
学号、各门课成绩、总成绩及平均成绩
编写程序实现之 fortran95的我这样写对不对
谢谢大家了
program Test
implicit none
character(8) XH, max_XH
real mark(5), max_Mark(5), max_Total
integer i
max_Total = 0
! 数据过多,一般从文件读取
open(10, file='1.txt')
do i = 1, 100
read(10,*) XH, mark
if(max_Total<sum(mark)) then
max_Mark = mark
max_XH = XH
end if
end do
close(10)
write(*,*) '最高分学生的学号:', max_XH
write(*,*) '各科成绩:', max_Mark
write(*,*) '总成绩:', sum(max_Mark)
write(*,*) '平均成绩:', sum(max_Mark)/size(max_Mark)
end program