填空题
下列程序的运行结果是（）。
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
【参考答案】
12000
点击查看答案
相关考题
-
填空题
下列程序的运行结果是（）。 Program test Implicit none Integer::sum,i sum=0.0 do i=1,203,2 sum=sum+i end do write(*,*) i end -
填空题
下列程序的运行结果为（）。 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 -
填空题
下列程序运行结果为（）。 Program main Implicit none Integer：：floor=5，i Do i=1， floor If（i==3）cycle If（i==4）cycle Write（*，*）i End do end
