В массиве(4,4) найти произведение ненулевых элементов и среднее арифметическое элементов главной диагонали.- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DIM a(4, 4)
RANDOMIZE TIMER
p = 1
FOR i = 1 TO 4
    FOR j = 1 TO 4
        a(i, j) = INT(RND * 10) - 5
        IF a(i, j) <> 0 THEN p = p * a(i, j)
        IF i = j THEN s = s + a(i, j)
    NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 4
    FOR j = 1 TO 4
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT "proizvedenie="; p
PRINT "srednee="; s / 4

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

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

Leave a Comment