Найти произведение всех положительных элементов массива в(3,2).

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var b:=MatrixRandom(3,2,-100,100);  Writeln(b);
  var p:integer:=1;
  foreach var n in b do
    if n>0 then p*=n;
  Writeln('Произведение положительных: ',p)
end.

Тестовое решение:
[[-97,7],[25,-29],[54,50]]
Произведение положительных: 472500