Question

Пожалуйста помогите задача на Паскаль...! Найдите произведение элементов, индексы которых чётны, а сами элементы нет. ЗАРАНЕЕ СПАСИБО ❤️​

Answer 1

Ответ:

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

i,p:integer;

begin

p:=1;

for i:=1 to 10 do

begin

write ('Введите ',i:2,' элемент массива и нажмите Enter ');

read (a[i]);

if (i mod 2 = 0) and (a[i] mod 2 = 1) then p:=p*a[i];

end;

writeln;

write ('Массив ');

for i:=1 to 10 do write (a[i],'  ');

writeln;  

write ('Произведение элементов, индексы которых чётны, а сами элементы нет, равно ',p)

end.

Answer 2

const

 nn = 100;  // максимальное число элементов

var

 a: array[1..nn] of integer;

 i, n: integer;

 p: real;

begin

 write('n = ');

 read(n);

 writeln('введите элементы массива');

 p := 1;

 for i := 1 to n do

 begin

   read(a[i]);

   if (i mod 2 = 0) and (a[i] mod 2 <> 0) then

     p := p * a[i];

 end;

 writeln('П = ', p);

end.

Answer 3

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

pascalCopy code
program Proizvedenie;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of integer;
  i: integer;
  proizvedenie: integer;

begin
  proizvedenie := 1;

  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := Random(100);

  // Нахождение произведения элементов
  for i := 2 to N do
  begin
    if (i mod 2 = 0) and (arr[i] mod 2 <> 0) then
      proizvedenie := proizvedenie * arr[i];
  end;

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

  readln;
end.

В этом примере я использую массив arr размером N, заполненный случайными числами от 0 до 99. Затем я прохожу по элементам массива, начиная с индекса 2, и проверяю, является ли индекс четным и соответствующий элемент нечетным. Если это условие выполняется, то элемент участвует в произведении. Результат выводится на экран.

Пожалуйста, учтите, что для запуска этой программы вам понадобится среда разработки, поддерживающая язык Pascal, например, Lazarus или Dev-Pascal.