你可能感興趣的試題

下列程序的運(yùn)行結(jié)果是（）。 
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

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