INPUT "vvedite a ", a
DO
INPUT "vvedite b>a ", b
LOOP UNTIL b > a
INPUT "vvedite c ", c
DO
INPUT "vvedite d>c ", d
LOOP UNTIL d > c
INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
DIM t(m, n)
FOR i = 1 TO m
FOR j = 1 TO n
PRINT "vvedite element t("; i; ","; j; ")"
DO
INPUT t(i, j)
LOOP UNTIL (t(i, j) > a AND t(i, j) <= b) OR (t(i, j) >= c AND t(i, j) < d)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT t(i, j);
NEXT
PRINT
NEXT
min = t(1, n)
FOR i = 1 TO m
IF t(i, n) < min THEN min = t(i, n)
NEXT
PRINT "minim. element pocled. stolbca="; min
Тестирование выполнено в программе QB64 ( Скачать )