Question

ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры. Написать программу, которая будет находить произведение четных элементов массива.

Answer 1

Ответ:

var a: array [1..10] of integer;

var s,i: integer;

begin

s:=1;

for i:=1 to 10 do

 begin

 read(a[i]);

 if (a[i] mod 2 = 0) then s:=s*a[i];

 end;

writeln('Произведение четных элементов массива: ',s);

end.

Answer 2

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

pascalCopy code
program MultiplyEvenElements;

var
  A: array[1..10] of Integer;
  i: Integer;
  product: Integer;

begin
  // Вводим элементы массива
  for i := 1 to 10 do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;

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

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

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

  Readln;
end.

Программа сначала вводит элементы массива, затем проходит по массиву и вычисляет произведение четных элементов. Если в массиве нет четных элементов, программа выведет соответствующее сообщение.