Произведение всех элементов i-ой строки и j-того столбца (j,i- вводятся с клавиатуры; I,j <= n ). Матрица A (n,n) - 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
INPUT "vvedite kolichestvo strok i stolbcov N ", n
DIM a(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT "vvedite element ", a(i, j)
    NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT n(i, j);
    NEXT
    PRINT
NEXT
INPUT "vvedite nomer stroki ", s
INPUT "vvedite nomer stolnca ", b
ps = 1
pb = 1
FOR i = 1 TO n
    pb = pb * a(i, b)
    ps = ps * a(s, i)
NEXT
PRINT "proizvedenie elementov "; b; " stolbca="; pb
PRINT "proizvedenie elementov "; s; " stroki="; ps

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

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

Leave a Comment