Question

Создать программу средствами языка паскаль .Найти произведение неположительных элементов двумерного массива целых чисел кратных 4.

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('П = ',a.ElementsByRow.Where(t->(t<=0) and (t mod 4=0))
      .Aggregate(BigInteger(1),(p,q)->p*q))
end.

Answer 2

Для нахождения произведения неположительных элементов двумерного массива целых чисел, кратных 4, вам потребуется создать программу на языке Pascal. Ниже приведен пример программы:

pascalCopy code
program MultiplyNegativesMod4;

const
  N = 3; // Размерность массива (количество строк)
  M = 3; // Размерность массива (количество столбцов)

var
  arr: array[1..N, 1..M] of Integer;
  i, j: Integer;
  product: Integer;

begin
  // Заполнение массива случайными значениями от -10 до 10
  Randomize;
  for i := 1 to N do
    for j := 1 to M do
      arr[i, j] := Random(21) - 10;

  // Вывод массива для проверки
  for i := 1 to N do
  begin
    for j := 1 to M do
      Write(arr[i, j]:4);
    Writeln;
  end;

  // Нахождение произведения неположительных элементов, кратных 4
  product := 1; // Инициализируем произведение единицей

  for i := 1 to N do
    for j := 1 to M do
      if (arr[i, j] <= 0) and (arr[i, j] mod 4 = 0) then
        product := product * arr[i, j];

  // Вывод результата
  if product = 1 then
    Writeln('В массиве нет неположительных элементов, кратных 4.')
  else
    Writeln('Произведение неположительных элементов, кратных 4, равно: ', product);

  Readln;
end.

Обратите внимание, что в коде выше предполагается, что массив заполняется случайными значениями от -10 до 10. Если вы хотите ввести значения вручную или использовать другой способ заполнения массива, вы можете изменить соответствующую часть кода.

Также стоит отметить, что в случае отсутствия неположительных элементов, кратных 4, произведение будет равно 1 (значение инициализации переменной product). Если нужно исключить такой случай, можно установить начальное значение product равным некоторому неподходящему значению, например, -1, и затем проверить его значение после обработки массива.