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 * 100) - 50
NEXT
NEXT
PRINT " massiv"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT A(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF A(i, j) < 0 THEN k = k + 1
IF k = 2 THEN PRINT "stroka="; i; " stolbec="; j: END
NEXT
NEXT