Определить минимальный элемент последнего столбца матрицы, которых принадлежит интервалу (А,В] или [C,D) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 ( Скачать )

Похожие записи/страницы:

Leave a Comment