就比如说,你现在有一个数组A(1:10)=1,也就是十个元素都等于1。编程如下:PROGRAM OUTPUTIMPLICIT NONEREAL(8)::A(10)INTEGER(4)::IA=1.OPEN(8,FILE="OUT.TXT")!输出文件DO I=1,10WRITE(8,*)A(I)!将数组元素一个一个输出ENDDOEND PROGRAM OUTPUT