輸入五個數存入數組A(5),絕對值最大的數MAXNUM,位置MAXKEY,絕對值最小的數MINNUM,MINKEY
1.初始化MAXNUM=ABS(A(1)),MINNUM=ABS(A(1)),MAXKEY=1,MINKEY=1
2.查找絕對值最大和最小的元素的位置
DO I=2,5
IF( ABS(A(I)) > MAXNUM ) THEN
MAXNUM=ABS(A(I))
MAXKEY=I
ELSEIF ( ABS(A(I)) < MINNUM ) THEN
MINNUM=ABS(A(I))
MINKEY=I
ELSE
ENDIF
ENDDO
3.絕對值最大的數為A(MAXKEY),最小的為A(MINKEY)