Question

ПАСКАЛЬ, напишите полной форме. Ввести двумерный массив A2×5 . Определить в нём произведение элементов чьё значение без остатка делится на 2 и не делится на 3

Answer 1

Var    A : array [1..2, 1..5] of integer;
    i,j,pr:integer;
Begin
pr:=1;
 Writeln('Ведите значения в массив');
   for i:=1 to 2 do
       for j:=1 to 5 do  read(A[i,j]);

               for i:=1 to 2 do
                    for j:=1 to 5 do
                           if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j];           Writeln('Произведение = ',pr)
End.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать следующий код:

program TwoDimensionalArray;

const
  N = 2; // количество строк
  M = 5; // количество столбцов

var
  A: array[1..N, 1..M] of Integer; // двумерный массив
  i, j: Integer; // переменные для циклов
  product: Integer; // переменная для хранения произведения

begin
  // Ввод элементов массива
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      write('Введите элемент A[', i, ',', j, ']: ');
      readln(A[i, j]);
    end;
  end;

// Инициализация произведения
  product := 1;

// Поиск элементов, удовлетворяющих условию
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if (A[i, j] mod 2 = 0) and (A[i, j] mod 3 <> 0) then
        product := product * A[i, j];
    end;
  end;

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

end.

В этом коде мы объявляем двумерный массив `A` размером `N` строк и `M` столбцов. Затем мы заполняем массив с помощью вложенных циклов `for`. После этого мы инициализируем переменную `product` значением 1 и проходим по всем элементам массива, проверяя условие, что значение элемента без остатка делится на 2 и не делится на 3. Если условие выполняется, мы умножаем значение элемента на переменную `product`. В кон