数学表达式13-1/2的值为：（）

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

二维数组在内存中的存储顺序为（）

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