REAL;;A(11,3), B(3)=0OPEN(11,FILE='AA.TXT')DO I=1,11 READ(11,*) A(I,1:3) B=B+A(I,1:3)ENDDOCLOSE(11)OPEN(12,FILE='BB.TXT')WRITE(12,*) BCLOSE(12)! ......END满意请采纳。
