randomProduct[] := Times @@ RandomChoice[RandomReal[{1, 10}, 100], 2]
Table[randomProduct[], 50]
Gives:
{63.9891, 17.9557, 87.3198, 32.9473, 15.1637, 29.7669, 51.645,
12.7526, 16.6779, 77.3897, 15.1959, 38.085, 16.4897, 6.1858, 30.7647,
42.773, 41.4649, 7.54359, 46.9427, 24.5257, 89.7559, 51.1646,
59.8884, 47.4572, 5.01737, 11.0181, 3.32749, 8.41211, 6.10643,
90.1455, 10.3041, 13.508, 10.7007, 80.044, 22.2968, 76.9739, 55.2836,
46.5379, 53.2397, 18.9813, 14.0878, 25.316, 56.0477, 15.1871,
13.3755, 15.2659, 26.7804, 18.8224, 27.1496, 6.9052}
To split and count how many are > 50
GroupBy[Table[randomProduct[], 50], # > 50 &] // Map[Length]