68
23
0
熟手
program ex0912 implicit none Real(kind=4), Allocatable :: A(:) Integer(kind=1), Allocatable :: B(:) Allocate(A(10)) Allocate(B(20)) A=10 B=20 A(-20)=1 B(-1000)=100 write(6,*)A(:) write(6,*)A(20) write(6,*)B(:) write(6,*)B(-1000) stop end program
使用道具 举报
农村外出务工人员
712
4
大师
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给为Fcode网站捐赠的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-4-18 06:00
Powered by Tencent X3.4
© 2013-2024 Tencent