fortran考試填空題每日一練(2020.04.03)

下列程序的運行結果是（）。 
Program main
   implicit none 
   integer, target :: a=1   
   integer, pointer :: p
       p=>a
       p=3
   write(*,*)a 
end

下列程序的運行結果是（）。
Program test 
Implicit none
Integer::sum,i 
sum=0.0
   do i=1,203,2
      sum=sum+i
 end do 
write(*,*) i
end

閱讀下列FORTRAN程序：

程序運行結果是（）

下列程序的運行結果是（）。 
Program test 
Implicit none 
Integer::i 
Integer::a(5) 
      Forall ( i=1:5 ) 
   A(I)=5 
End forall 
Write(*,*)a 
Stop 
end