1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | CLSm = 10n = 10 ' Ручной ввод(можно откомментировать) 'INPUT "Vvedite kol-vo stolbcov:"; m 'INPUT "Vvedite kol-vo strok:"; n DIM A(m, n) AS LONG, B(m) AS LONG ' Заполняем матрицу и на экран ее RANDOMIZE TIMER FOR iy = 1 TO n: FOR ix = 1 TO m A(ix, iy) = RND * 10: PRINT A(ix, iy); NEXT: PRINT : NEXT: PRINT ' Производим вычисление произведений FOR ix = 1 TO n B(ix) = 1 FOR iy = 1 TO m B(ix) = B(ix) * A(ix, iy) NEXT NEXT ' Вывод массива FOR i = 1 TO m PRINT B(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )