Заполнить массив Т(5,6) случайными числами, распечатать его на экран, найти сумму элементов в каждой строке и произведений всех элементов матрицы- QBasic(Бейсик)

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