Дана матрица из 3 строк и 2 столбцов. Найти в матрице максимальный элемент и число, характеризующее его встречаемость в матрице- QBasic(Бейсик)

CLS
DIM a(3, 2)
FOR i = 1 TO 3
    FOR j = 1 TO 2
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
    NEXT j
NEXT i
max = -1E+38
FOR i = 1 TO 3
    FOR j = 1 TO 2
        IF a(i, j) > max THEN max = a(i, j)
    NEXT j
NEXT i
FOR i = 1 TO 3
    FOR j = 1 TO 2
        IF a(i, j) = max THEN k = k + 1
    NEXT j
NEXT i
PRINT max
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment