В строках матрицы с отрицательными элементами на главной диагонали найти сумму всех элементов

INPUT n
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT "vvedite element "; a(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO n
IF a(i, i) < 0 THEN s = 0: FOR j = 1 TO n: s = s + a(i, j): NEXT: PRINT "stroka "; i; " summa="; s
NEXT

NPUT n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite element "; a(i)
NEXT
max = 0
k = 1
WHILE a(k) >= 0
k = k + 1
WEND
FOR i = k + 1 TO n
IF a(i) < 0 THEN IF m > max THEN max = m: m = 0
IF a(i) > 0 THEN m = m + 1
NEXT
PRINT max

RANDOMIZE TIMER
INPUT "wnter N ", n
DIM M(n, n) AS SINGLE
FOR i = 1 TO n
        FOR j = 1 TO n
                M(i, j) = RND * 10
        NEXT
NEXT
 
FOR i = 1 TO n: M(i, i) = -10 * RND: NEXT
 
FOR i = 1 TO n
        FOR j = 1 TO n
                PRINT M(i, j);
        NEXT
        PRINT
NEXT
 
sum! = 0
FOR i = 1 TO n
        FOR j = 1 TO n
                sum = sum + M(i, j)
        NEXT
NEXT
 
PRINT "sum=", sum

input"vvedite razmer matricy N= ",n
dim a(n,n)
randomize timer
for i=1 to n
for j=1 to n
a(i,j)=int(rnd*21)-10
next
next
print "matrica"
for i=1 to n
for j=1 to n
print a(i,j);" ";
next
print
next
for i=1 to n
s=0
if a(i,i)<0 then for j=1 to n: s=s+a(i,j):next: print"stroka ";i;" summa=";s
next

input "vvedite kolichestvo elementov n=",N
dim a(n),s(n)
randomize timer
print"posledovatelnost"
for i=1 to n
a(i)=int(rnd*20)-10
print a(i);" ";
next
print
for i=1 to n
if a(i)<0 then k=k+1 else s(k)=s(k)+1
next
for i=1 to k-1
if s(i)>max then max=s(i)
next
print "maximalnoe kolichestvo poloj=";max