Question

в матрице m найти произведение положительных элементов

Answer 1

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
  for var j:=0 to m-1 do
    if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.