Определить сумму элементов выше побочной диагонали матрицы

min=1e+38
imin=0
jmin=0
for i=1 to n
for j=1 to n
if i+j<=n then s=s+a(i,j): if a(i,j)<min and a(i,j)>0 then min=a(i,j):imin=i:jmin:jmin=j
next
print"summa=";s
if imin=0 then print"polojitelnyh net" else print "min=";min;" stroka=";imin;" stolbec=";jmin

FOR i = 0 TO m - 1
    s(i) = 0
    FOR j = 0 TO n - 1
        s(i) = s(i) + X(????)
        NEXT j, i
        PRINT
        FOR i = 0 TO m - 1
        PRINT s(i)
        NEXT i

min=1e+38

DIM m AS INTEGER, n AS INTEGER
DIM i AS INTEGER, j AS INTEGER, imin AS DOUBLE, jmin AS DOUBLE
 
CLS
 
INPUT "Vvedite kolichestvo strok-->", m
INPUT "Vvedite kolichestvo stolbcov-->", n
 
DIM X(m, n) AS INTEGER
DIM s AS LONG
 
RANDOMIZE TIMER
 
FOR i = 1 TO n
    FOR j = 1 TO n
    'PRINT "X("; i; ","; j; ")";
    'INPUT "-->", X(i, j)
 
    X(i, j) = INT(RND * 10)
    NEXT j, i
 
PRINT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT X(i, j);
NEXT j
PRINT
NEXT i
 
min = 1E+38
imin = 0
jmin = 0
FOR i = 1 TO n
FOR j = 1 TO n
IF i + j <= n THEN s = s + X(i, j)
IF X(i, j) < min AND X(i, j) > 0 THEN min = X(i, j)
imin = i
NEXT
jmin = j
NEXT
PRINT "summa="; s
IF imin = 0 THEN PRINT "PLOZHITELNIH NET" ELSE PRINT "min="; min; "stroke="; imin; "stolbec="; jmin

INPUT "vvedite n ", n
DIM a(n, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 20) - 10
PRINT a(i, j);
NEXT
PRINT
NEXT
min = 1E+38
imin = 0
jmin = 0
FOR i = 1 TO n
FOR j = 1 TO n
IF i + j <= n THEN s = s + a(i, j): IF a(i, j) < min AND a(i, j) > 0 THEN min = a(i, j): imin = i: jmin = j
NEXT
NEXT
PRINT "summa="; s
IF imin = 0 THEN PRINT "polojitelnyh net" ELSE PRINT "min="; min; " stroka="; imin; " stolbec="; jmin