Создать массив, состоящий из произведения элементов матрицы по столбцам — QBasic(Бейсик)

 CLS
m = 10
n = 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 ( Скачать )

Leave a Comment