有程序:DIMENSIONA(4 3)DATAA/3*-1.0 3*-2.0 3*-3.0 3*-4.0/S=0.0DO10K=1 4D=ABS(A(K 1))DO20J=2 3IF(ABS(A(K J)).GT.D)D=ABS(A(K J))20CONTINUES=S+D10CONTINUEWRITE(* *)SEND此程序执行后的结果为:()

阅读下列FORTRAN77程序：DIMENSIONA（3，3)D0100K＝1，3D0100J＝1，3100A（K，J)＝K＋JS＝P（A，2，8)WRITE（*，*)

阅读下列FORTRAN程序：S＝1.0D010K＝2，4，210S＝S＋1.0／KWRITE（*，*)SEND执行上述程序后，输出的S值为（)。

阅读下列FORTRAN77程序：DIMENSIONA（4，3)COMMON／P／AP＝0.0D010K＝1，3D010J＝1，31F（P.LE.5.0)P＝P＋A（J，

对于下列给定的FORTRAN77说明和赋初值语句：INTEGERA（2，2)DATAA／3，4，5，6／数组元数A（2，1)的初值为（

皮肤厚度约为A、0.5～2.5mmB、0.5～3.5mmC、0.5～4.0mmD、1.0～3.5mmE、1.0～4.0mm

2x^4－x^3＋2x－3=0的有理根是A －1.0B －3.0C 1.0D 3.0