太简单了，这不是送分吗？？？

总算抢来一个沙发了。

程序：
CLS
DIM a(6, 6)
FOR i = 1 TO 6: FOR j = 1 TO 6
    PRINT "Input a("; i; ","; j; "):"; : INPUT a(i, j)
NEXT j, i
PRINT : PRINT "Array:"
GOSUB pri
PRINT : PRINT "Turned array:"
FOR i = 1 TO 6: FOR j = 1 TO 6
    a(i, j) = a(i, j) + SGN(j - i)
NEXT j, i
GOSUB pri
END
pri:
FOR i = 1 TO 6: FOR j = 1 TO 6: PRINT a(i, j); : NEXT j: PRINT : NEXT i
RETURN

CLS
DIM A（6，6）
FOR I=1 TO 6:FOR J=1 TO 6: PRINT "INPUT A("; I; ","; J; "):"; : INPUT a(i,j) 
NEXT:NEXT
PRINT"原来的三角形"
FOR I=1 TO 6:FOR J=1 TO 6
PRINT USING"####";A(I,J);　
NEXT:PRINT:NEXT
PRINT：PRINT
PRINT "改变后的三角形"　　
FOR I=1 TO 6:FOR J=1 TO 6
IF I<J THEN A(I,J)=A(I,J)+1 ELSE IF I>J THEN A(I,J)=A(I,J)-1
NEXT:NEXT
FOR I=1 TO 6:FOR J=1 TO 6
PRINT USING"####";A(I,J);
NEXT：PRINT:NEXT