Question

Решить в паскале. Задан массив А(1:20). Найти произведение всех его ненулевых элементов.

Answer 1

Program t1;
const
  n=20
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 1;
  for i := 1 to n do
  begin
     x := m1[i];
     if (x <> 0) then s := s * x;
  end;
  writeln('Ответ ',s);
end;
end.

Answer 2

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

program MultiplyNonZeroElements;
var
  A: array[1..20] of Integer;
  i: Integer;
  product: Integer;
begin
  product := 1;
  
  // Заполнение массива A
  // ...
  
  // Нахождение произведения ненулевых элементов
  for i := 1 to 20 do
  begin
    if A[i] <> 0 then
      product := product * A[i];
  end;
  
  // Вывод результата
  writeln('Произведение ненулевых элементов массива A: ', product);
end.

В данном коде мы объявляем массив `A` размером 20 элементов и переменную `product`, которая будет хранить произведение ненулевых элементов. Затем мы проходим по всем элементам массива `A` и умножаем их на переменную `product`, если элемент не равен нулю. В конце выводим результат.

Примечание: В коде отсутствует часть, отвечающая за заполнение массива `A`. Вам необходимо добавить эту часть в соответствии с вашими требованиями.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.