Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Найти произведение всех положительных элементов массива В(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