(来学网)有程序：DIMENSION A(4，3)
DATA A／3*-1．0，3*-2．0，3*-3．0，3*-4．0／
S=0．0
DO 10 K=1，4
D=ABS(A(K，1))
DO 20 J=2，3
IF(ABS(A(K，J))．GT．D)D=ABS(A(K，J))
20 CONTINUE
S=S+D
10 CONTINUE
WRITE(*，*)S
END
此程序执行后的结果为：