CLS
DIM X(5, 4)
min=1e+38
RANDOMIZE TIMER
FOR i = 1 TO 5
FOR j = 1 TO 4
X(i, j) = INT(RND*20)-10
NEXT
NEXT
PRINT"massiv"
FOR i = 1 TO 5
FOR j = 1 TO 4
PRINT X(i, j);" ";
NEXT
PRINT
NEXT
FOR i = 1 TO 5
FOR j = 1 TO 4
IF x(i,j)>0 AND x(i,j)< min THEN min=x(i,j)
NEXT
NEXT
PRINT "Наименьший из положительных элементов=)"; min