下列程序的运行结果是（）。 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

填空题

下列程序的运行结果是（）。
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

备案号：湘ICP备14005140号-3

经营许可证号：湘B2-20140064

fortran考试