Question

Помогите пожалуйста решить задачу в Pascal вот Задача:Заполните с клавиатуры массив К, состоящий из N элементов. Найдите произведение четных элементов.Если сделаете отправьте скриншотом из паскаль

Answer 1

Const
m=1000;
var
k:array[1..m]of integer;
i,n:integer;
p:real;
begin
p:=1;
   writeln('INPUT n');
   readln(n);
       for i:=1 to n do
         begin
           read(k[i]);  {массив вводится через пробел, последний элемент Enter}
                if k[i]mod 2=0 then
                   p:=p*k[i];
          end;
writeln;
writeln('p = ',p:4:0);
end.
                    

Answer 2

К сожалению, я не могу принимать файлы или скриншоты, но я могу предоставить вам пример кода на Pascal для решения этой задачи. Вот пример:

program MultiplyEvenElements;

const
  N = 5; // Задайте необходимый размер массива

var
  K: array[1..N] of Integer;
  i: Integer;
  product: Integer;

begin
  // Вводим элементы массива с клавиатуры
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
  begin
    write('K[', i, ']: ');
    readln(K[i]);
  end;

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

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

readln; // Чтобы консольное окно не закрывалось сразу
end.

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