Дана квадратная матрица 7 на 7 найти произведение элементов главной диагонали и найти разность максимальных элементов 1 и 3 строк — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
REM lab 4
DIM A(7, 7)
FOR i = 1 TO 7
    FOR j = 1 TO 7
        INPUT A(i, j)
    NEXT j
NEXT i
P = 1
FOR i = 1 TO 7
    P = P * A(i, i)
NEXT i
PRINT P
max1 = A(1, 1)
max3 = A(3, 1)
FOR j = 2 TO 7
    IF A(1, j) > max1 THEN max1 = A(1, j)
    IF A(3, j) > max3 THEN max3 = A(3, j)
NEXT j
R = max3 - max1
PRINT R
END

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

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

Leave a Comment