用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` 即可。