// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив 8x6 ***'); var c:=MatrRandom(8,6,-99,99); c.Println(4); Writeln(4*c.ColCount*'-'); Writeln('Произведения элементов, больших -7, построчно:'); foreach var row in c.Rows do Writeln(row.Where(x->x>-7).Aggregate(int64(1),(p,q)->p*q)); end.