Найти произведение элемента массива d[3,8] стоящих в четных столбцах. в паскале

kseniawkk kseniawkk    1   09.09.2019 11:00    0

Ответы
AsyaFilipova AsyaFilipova  07.10.2020 02:59
// 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.

Пример
*** Исходный массив ***
  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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика