// 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.