Найти количество отрицательных элементов матрицы, расположенных на побочной диагонали и выше ее

max= a(1,n)
FOR i=1 TO n
FOR j=1 TO n
IF i+j<=n+1 AND a(i,j)<0 THEN k=k+1
IF i+j=n+1 AND a(i,j)>max THEN max=a(i,j)
NEXT
NEXT
PRINT"kol-vo otricat.=";k
PRINT"max=";max

CLS
INPUT "vvedite kolichestvo strok & stolbcov", n
DIM a(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        a(i, j) = INT(RND * 10)
    NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
max = a(1, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        IF i + j <= n + 1 AND a(i, j) < 0 THEN k = k + 1
        IF i + j = n + 1 AND a(i, j) > max THEN max = a(i, j)
    NEXT
NEXTи
PRINT "kol-vo otricat.="; k
PRINT "max="; max
END

a(i, j) = INT(RND * 10)

a(i, j) = INT(RND * 20) - 10

RANDOMIZE TIMER

NEXTи

NEXT

a(i, j) = INT(RND * 20) - 10

INT(RND * 20) - 10

OPEN "input.txt" FOR INPUT AS#1
INPUT #1,n
DIM a(n,n)
FOR i=1 TO n
FOR j=1 TO n
INPUT #1,a(i,j)
NEXT
NEXT
CLOSE

CLS
r$ = STRING$(80, 196)
OPEN "input.txt" FOR OUTPUT AS #1
INPUT "Vvedite razmer matrici: ", n
PRINT #1, n
  FOR i = 1 TO n
     PRINT r$
     PRINT " Vvodim stroku"; i
     PRINT r$
     FOR j = 1 TO n
        PRINT " Stolbec N" + CHR$(248); j, ;
        INPUT "Vvodite element: ", e
        PRINT #1, e;
     NEXT: PRINT #1,
  NEXT
CLOSE 1

CLS
OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT #1, a(i, j)
NEXT
NEXT
CLOSE
CLS
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT: PRINT
NEXT