//PascalABC.NET 3.3,сборка 1611 от 06.01.2018 //Внимание! Если программа не работает, обновите версию! begin var mas:=MatrRandom(5,5,-99,99); mas.Println; var a:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0)); var b:=a.Aggregate(biginteger(1),(x,y)->x*y); Writeln('Произведение =',b); end.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=MatrRandom(5,5,-99,99); mas.Println;
var a:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0));
var b:=a.Aggregate(biginteger(1),(x,y)->x*y);
Writeln('Произведение =',b);
end.