// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
*** Исходный массив 8x6 ***
-50 8 -15 55 91 -53
-25 82 33 65 19 -63
99 49 -80 84 -2 68
-52 -63 -58 23 89 58
81 -45 -71 -85 34 66
-35 2 23 26 -33 -56
74 35 -35 21 15 -77
40 87 -11 77 -74 -65
Произведения элементов, больших -7, построчно:
40040
3341910
-55417824
118726
181764
1196
815850
267960