你好!下面是一个例子,如何用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_inpu