// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,8,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Искомое произведение ', a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]). Aggregate(BigInteger(1),(x,y)->x*y)); end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Искомое произведение ',
a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]).
Aggregate(BigInteger(1),(x,y)->x*y));
end.
Пример
*** Исходный массив ***
60 -23 10 -18 -97 -90 -56 5
32 51 -2 3 63 -76 17 85
-41 -64 9 59 84 -66 69 28
Искомое произведение 1284904222221312000