Question

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

Answer 1

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

Answer 2

В Паскале можно использовать следующий код для нахождения произведения элементов массива d[3,8], расположенных в четных столбцах:

arduinoCopy code
program FindProduct;
var
  d: array[1..3, 1..8] of Integer;
  product: Integer;
  i, j: Integer;
begin
  product := 1;

  // Заполнение массива d (ваш код здесь)

  // Нахождение произведения элементов в четных столбцах
  for j := 2 to 8 step 2 do
  begin
    for i := 1 to 3 do
    begin
      product := product * d[i, j];
    end;
  end;

  // Вывод результата
  writeln('Произведение элементов в четных столбцах: ', product);

  // Завершение программы
  readln;
end.

В этом примере предполагается, что массив d уже заполнен значениями до выполнения цикла нахождения произведения. Замените комментарий "// Заполнение массива d (ваш код здесь)" на ваш код для заполнения массива d.

После выполнения программы будет выведено произведение элементов массива d, расположенных в четных столбцах.