日韩欧美亚洲 _ 欧美亚洲一区 _ 日本亚洲欧美 _ 亚洲精品欧美国产白袜脚足J棉袜在线观看_亚洲熟妇av一区二区三区_久久天天躁狠狠躁夜_精品众筹模特私拍在线

填空題

下列程序的運行結(jié)果是（）。
Program test
Implicit none
Integer::i
Integer::a(5)
Forall ( i=1:5 )
A(I)=5
End forall
Write(,)a
Stop
end

答案： 55555

你可能感興趣的試題

二維數(shù)組在內(nèi)存中的存儲順序為（）

答案： 1324

下列程序的運行結(jié)果是（）。
Program main
implicit none
integer, target :: a=1
integer, pointer :: p
p=>a
p=3
write(,)a
end

答案： 3