当输入10，20时，下列程序执行后的输出结果为()。
READ(*，*)IX，IY
A=100.0
IF(IX／IY.GT.0)THEN
A=1.0
ELSEIF(IX／IY.LT.0)THEN
A=-1.0
ELSE
A=0.0
ENDIF
WRITE(*，*)A
END

下列程序执行后的输出结果为()。
CHARACTER9*C
C=’1234567890’
CALLSS(C)
END
SUBROUTINESS(X)
CHARACTERX*2
WRITE(*，*)X
END

当输入1.5，2.5，3.5，4.0下列程序执行后的输出结果为()。
DIMENSIONA(2，2)
READ(*，*)A
SUM=0
DO10I=1，2
DO20J=I，2
K=A(I，J)*I*J
10A(1，2)=K
WRITE(*，*)A(2，1)
END