Дана вещественная матрица размерности n на m. Сформировать вектор b, каждый элемент которого вычисляется как произведение элементов меньших заданного А, соответствующего столбца

#include <iostream>

#include <vector>

using namespace std;

signed main() {

   int n,m,A;

   cin >> n >> m >> A;

   vector<vector<double>> a(n,vector<double>(m));

   for(int i = 0; i < n; i++)

       for(int j = 0; j < m; j++)

           cin >> a[i][j];

   vector<double> b(n,1);

   vector<bool> ok(n,false);

   for(int i = 0; i < m; i++)

       for(int j = 0; j < n; j++)

           if(a[j][i] < A){

               b[i] *= a[j][i];

               ok[i] = true;

           }

   for(int i = 0; i < b.size(); i++){

       if(!ok[i]) b[i] = 0;

       cout << b[i] << " ";

   }

}

// PascalABC.NET 3.6.3

uses School;

begin

 var (n, m) := ReadInteger2('Введите m и n:');

 var a := MatrRandomReal(n, m, -10, 10, 1);

 a.Println(7, 1);

 var x := ReadReal('Введите число A:');

 var b := a.Cols.Select(p -> p.Where(q -> q < x).Product);

 b.Print

end.