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

Question

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

Comments

Пардон,не уточнил,нужно на языке Basic

---

Теперь это уже Ваша проблема. Знакомая ситуация, когда люди не думают о чужом труде.

Answer 1

// 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