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

相关问题

用fortran编写：输入一个小写字母，将其转换为大写字母后输出。

可以使用 Fortran 的 ASCII 函数来实现这个功能。

首先，使用 `read` 语句输入一个字符：

character :: c
read(*,*) c

然后，使用 ASCII 函数将字符转换为 ASCII 码：

ascii = int(c)

接下来，判断该字符是否为小写字母，如果是，就将其转换为大写字母：

if (ascii >= 97) then
  ascii = ascii - 32
endif

最后，使用 ASCII 函数将 ASCII 码转换回字符，并使用 `write` 语句输出：

c = char(ascii)
write(*,*) c

完整的程序如下：

program main
  character :: c
  integer :: ascii

  read(*,*) c
  ascii = int(c)
  if (ascii >= 97) then
    ascii = ascii - 32
  endif
  c = char(ascii)
  write(*,*) c
end program main