用fortran编写：依次输入10个同学成绩，系统自动选出其中最大成绩

下面是用 Fortran 编写的程序，可以依次输入 10 个同学的成绩，并找出其中的最大值：
program maxscore
implicit none

integer :: i, n = 10, maxscore = 0, score

write(*,*) '请输入', n, '个同学的成绩：'

do i = 1, n
read(*,*) score
if (score > maxscore) then
maxscore = score
end if
end do

write(*,*) '最大成绩为：', maxscore

end program maxscore
登录后复制
在上面的程序中，我们定义了一个整数变量 maxscore 来存储最大成绩，初始值为 0。然后使用一个 do 循环来依次读入 10 个同学的成绩，每次读入一个成绩后，将其与 maxscore 比较，如果大于 maxscore，则将其赋值给 maxscore。最后输出 maxscore 即可。