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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
n = 3: m = 2
DIM a(n, m)
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
max = a(1, 1)
FOR i = 1 TO n: FOR j = 1 TO m
        IF a(i, j) > max THEN max = a(i, j)
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO m
        IF a(i, j) = max THEN k = k + 1
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "max ="; max
PRINT "k ="; k

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

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

Leave a Comment