(来学网)有程序：INTEGER M(3，4)
DATA M／4*-1，4*-2，4*-3／
S=0
DO 10 I=1．3
10 S=S+M(I，I+1)
DO 20 I=4，2，-1
20 S=S-M(I-1，I)
WRITE(*，*)S
END
上面程序的运行结果为：