用fortran语言编写：从键盘输入十个数，要求按输入时的逆序输出

你好！下面是一个例子，如何用Fortran语言从键盘输入十个数并按逆序输出：

program inverse_input
implicit none
integer :: i, n, a(10)

! 从键盘输入十个数
do i = 1, 10
write(*,'(A)') '请输入一个数：'
read(*,'(I5)') n
a(i) = n
end do

! 按输入时的逆序输出
do i = 10, 1, -1
write(*,'(I5)') a(i)
end do
end program inverse_input

在这个例子中，我们定义了一个整数数组a，用来存储从键盘输入的十个数。然后，我们使用一个循环从键盘输入这十个数，并将它们存储在数组a中。最后，我们使用另一个循环按逆序输出数组a中的数。

希望这能帮到你！如果你有其他问题，请随时追问。

相关问题

用fortran语言编写:输出杨辉三角形

以下是用Fortran语言编写的输出杨辉三角形的代码：

program yanghui
implicit none
integer :: n, i, j
integer :: triangle(20,20) ! 储存杨辉三角的数组
write(*,*) '请输入要输出的行数：'
read(*,*) n

! 初始化第一行
triangle(1,1) = 1

do i = 2, n
  ! 计算每一行的数值
  triangle(i,1) = 1
  do j = 2, i-1
    triangle(i,j) = triangle(i-1,j-1) + triangle(i-1,j)
  end do
  triangle(i,i) = 1
end do

! 输出杨辉三角
do i = 1, n
  do j = 1, i
    write(*,'(I5)',advance='no') triangle(i,j)
  end do
  write(*,*) ! 换行
end do

end program yanghui

这段程序通过嵌套循环计算并储存了杨辉三角的每一个数值，并将其输出到屏幕上。用户可根据需要输入要输出的行数，程序会自动计算并输出对应行数的杨辉三角形。

用Fortran语言编写程序：输入5个数，按从小到大排列输出

好的，以下是用Fortran语言编写的程序：

program sort
  implicit none
  integer :: a(5), i, j, temp

  ! 输入5个数
  do i = 1, 5
    write(*,*) '请输入第', i, '个数：'
    read(*,*) a(i)
  end do

  ! 冒泡排序
  do i = 1, 4
    do j = i+1, 5
      if (a(i) > a(j)) then
        temp = a(i)
        a(i) = a(j)
        a(j) = temp
      end if
    end do
  end do

  ! 输出排序结果
  write(*,*) '从小到大排序结果为：'
  do i = 1, 5
    write(*,*) a(i)
  end do

end program sort

程序的运行结果如下：

请输入第 1 个数：
5
请输入第 2 个数：
2
请输入第 3 个数：
9
请输入第 4 个数：
3
请输入第 5 个数：
7
从小到大排序结果为：
           2
           3
           5
           7
           9