Задана матрица D размера NxN.Вычислить сумму положительных дробных элементов ее побочной диагонали — QBasic(Бейсик)

INPUT "vvedite razmer matricy N ", n
DIM d(n, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
    FOR j = 1 TO n
        d(i, j) = INT(RND * 50) / 2 - 10
        PRINT d(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO n
    IF d(i, n - i + 1) > 0 AND d(i, n - i + 1) <> INT(d(i, n - i + 1)) THEN sum = sum + d(i, n - i + 1)
NEXT
PRINT "summa drobnyh polojitelnyh="; sum