INPUT "vvedite kol-vo strok ", n
DIM a(n, n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 2)
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
FOR j = 1 TO n
IF a(i, j) <> 0 THEN PRINT "nenulevye elementy est a("; i; ","; j; ")="; a(i, j): f = 1: END
NEXT
NEXT
IF f = 0 THEN PRINT "nenulevyh elementov net"