下列程序的運(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
下列程序的運(yùn)行結(jié)果為()。 Program main Implicit none Real :: a, b, m A=2.0 B=76.0 If(a M=a A=b B=m End if Write(*,*) “a=”,a “b=”,b end