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 * 10)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
min = a(1, n)
FOR i = 1 TO n
IF a(i, n - i + 1) < min THEN min = a(i, n - i + 1)
NEXT
PRINT "min="; min