(来学网)有程序：INTEGER M(5，5)
L=0
DO 40 J=1，5
DO 40 K=1，5
M(J，K)=K
40 CONTINUE
DO 10 I=1，5
N=1
IF(MOD(I，2)．EQ．0)N=2
DO 10 J=N，5，2
L=L+M(I，J)
10 CONTINUE
WRITE(*，20)L
20 FORMAT(2X，‘L='，I3)
END
此程序运行的结果为：