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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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