下列程序执行后，输出的结果为： 。 INTEGER A(16) DO I=1,16 A(I)=I END DO P=0 CALL SUB(A,P) PRINT *,P END SUBROUTINE SUB(B,S) INTEGER B(4,4) DO I=1,4 DO J=1,4 IF(MOD(I+J,3)==0)S=S+B(I,J) ENDDO ENDDO END [A] 40 [B] 46 [C] 45 [D] 31
A、数组按列赋值，求的是行列之和能被3整除的元素之和。
B、不正确
C、不正确
D、不正确