Заполнить массив Т(5,6) случайными числами, распечатать его на экран, найти сумму элементов в каждой строке и произведений всех элементов матрицы- 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
25
DIM T(5, 6) ' 5 stolbtsov, 6 strok
DIM SumElSt, Proizv AS DOUBLE
 
CLS
 
' Zapolnyaem massiv
RANDOMIZE TIMER
FOR iy = 1 TO 6: FOR ix = 1 TO 5
        T(ix, iy) = INT(RND * 10 - 5)
        PRINT T(ix, iy);
NEXT: PRINT: NEXT
 
' Summi elementov v kazhdoi stroke
PRINT "Summi elementov v stroke:"
FOR iy = 1 TO 6: SumElSt = 0
    FOR ix = 1 TO 5
        SumElSt = SumElSt + T(ix, iy)
NEXT: PRINT SumElSt: NEXT
 
' Proizvedenie vsekh elementov
Proizv = T(1, 1)
FOR iy = 1 TO 6: FOR ix = 1 TO 5
        Proizv = Proizv * CDBL(T(ix, iy))
NEXT: NEXT
PRINT "Proizvedeniye el-tov:"; Proizv

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

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

Leave a Comment