下列程序的运行结果是（）。 
Program main 
 implicit none
 integer ::a=1
   integer ::b=2
 call add ( a )
   Call add ( b)
 Write(*,*) a , b
 Stop
  end 
Subroutine  add (sum) 
Implicit none 
integer :: sum
   sum=sum+1 
Return 
end 

下列程序的运行结果是（）。  Program test      Implicit none      Integer,parameter:: limit=10      Integer counter      Integer:: ans=0      Counter=2     do while(counter<=limit)      ans=ans+counter      counter=counter+2   end do Wrte(*,*)ans end 点击查看答案

下列程序的运行结果是（）。  Program test  Implicit none  Integer::i  Integer::a(5)=(  (i, i=1,5)  )  Integer::b(5)=0       Where (a<3)            b=a     End where  Write(*,”(5(i3,1x))”) b  end 点击查看答案