面试题：Fortran中数组的基本操作

Question

在Fortran中，给定一个一维数组`A`，包含10个整数元素。编写代码实现将数组`A`中所有元素的值翻倍，并输出翻倍后的数组。

Answer 1

program double_array
    implicit none
    integer, dimension(10) :: A
    integer :: i

   ! 初始化数组A
    A = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

   ! 将数组A中所有元素的值翻倍
    do i = 1, 10
        A(i) = 2 * A(i)
    end do

   ! 输出翻倍后的数组
    do i = 1, 10
        write(*,*) A(i)
    end do
end program double_array