Question

Составить программу на языке паскаль для вычисления произведения элементов, больших (-7) в каждой строке матрицы С(8*6).

Answer 1

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

Пример
*** Исходный массив 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

Answer 2

Программа на языке Pascal для вычисления произведения элементов, больших (-7) в каждой строке матрицы С(8*6) будет выглядеть следующим образом:

program MatrixProduct;

const
  ROWS = 8;
  COLS = 6;

type
  Matrix = array[1..ROWS, 1..COLS] of Integer;

var
  C: Matrix;
  i, j: Integer;
  product: Integer;

begin
  // Ввод элементов матрицы C
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      write('Введите элемент C[', i, ',', j, ']: ');
      readln(C[i, j]);
    end;
  end;

// Вычисление произведения элементов, больших (-7), в каждой строке матрицы
  for i := 1 to ROWS do
  begin
    product := 1;
    for j := 1 to COLS do
    begin
      if C[i, j] > -7 then
        product := product * C[i, j];
    end;
    writeln('Произведение элементов строки ', i, ', больших (-7): ', product);
  end;

end.

Эта программа сначала позволяет пользователю ввести элементы матрицы C размером 8x6. Затем она вычисляет произведение элементов, больших (-7), в каждой строке матрицы и выводит результат на экран.