fortran 数组逆序

在Fortran中，可以使用循环和临时变量来实现数组的逆序。下面是一个示例代码：

program reverse_array
  implicit none
  integer :: arr(5) = [1, 2, 3, 4, 5]
  integer :: temp
  integer :: i

  ! 打印原始数组
  print *, "原始数组："
  do i = 1, size(arr)
    print *, arr(i)
  end do

  ! 数组逆序
  do i = 1, size(arr)/2
    temp = arr(i)
    arr(i) = arr(size(arr) - i + 1)
    arr(arr) - i + 1) = temp
  end do

  ! 打印逆序后的数组
  print *, "逆序后的数组："
  do i = 1, size(arr)
    print *, arr(i)
  end do

end program reverse_array

这段代码首先定义了一个长度为5的整型数组arr，并初始化为[1, 2, 3, 4, 5]。然后使用循环和临时变量temp来实现数组的逆序。最后，打印出逆序后的数组。

相关问题

用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中的数。

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