Question

Плиз хелп Составьте программу вычисления в массиве A(15) произведения нечетных элементов. Сделайте пожалуйста программу на паскале

Answer 1

Ответ:

--- PascalABC.NET 3.6.3 ---

begin

 var A := ArrRandom(15, -99, 99);

 A.Println;

 A.Where(p -> p mod 2 <> 0).Product(x -> BigInteger(x)).Println;

end.

Answer 2

PascalABC.NET

Ответ:

• begin
• ArrRandom(15, -99, 99).Println.Product(x -> x.IsOdd?BigInteger(x):1).Print
• end.

Пример работы:

Answer 3

Конечно, вот программа на языке Паскаль, которая вычисляет произведение нечетных элементов массива A(15):

pascalCopy code
program CalculateProduct;
var
  A: array[1..15] of Integer;
  i: Integer;
  product: Integer;

begin
  product := 1;

  // Ввод значений в массив A
  for i := 1 to 15 do
  begin
    writeln('Введите элемент A[', i, ']: ');
    readln(A[i]);
  end;

  // Вычисление произведения нечетных элементов
  for i := 1 to 15 do
  begin
    if A[i] mod 2 <> 0 then
      product := product * A[i];
  end;

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

Вы можете скопировать этот код и выполнить его в вашей среде разработки Pascal. Он сначала попросит вас ввести 15 элементов массива, а затем вычислит произведение нечетных элементов и выведет результат.