Заполнить массив из 10 элементов случайным образом в интервале {10; 20} и найти элемент, равный х пример исходный массив: 13 10 18 12 20 11 13 14 15 20 что ижём? 20 а[5]=20

const n=10;

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

i,x:integer;

begin

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

for i:=1 to n do

begin

a[i]:=random(11)+10;

write(a[i]:3,' ')

end;

writeln;

write('x = ');

readln (x);

for i:=1 to n do  if a[i]=x then writeln('A[',i,'] = ',a[i])

end.

Любое произведение чисел будет четным, если оно содержит хотя бы оин четный сомножитель, поэтому задача сводится к определению того, есть ли в массиве хоть один четный элемент с нечетным порядковым номером.
Почему просто не попытаться перемножить эти элементы? Например потому, что максимальное целое значение в компьютерной математике ограничено количеством байт, отводимых для представления данных такого типа и редко превышает 2³². А представление с плавающей точкой - приближенное и проверять четность для подобных чисел часто оказывается бессмысленным.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(10,-15,15); a.Println;
  if a.Where((x,i)->i.IsEven).Any(x->x.IsEven) then
    Writeln('Четное')
  else Writeln('Нечетное')
end.

Тестовое решение
13 3 5 4 15 7 -15 -4 7 12
Нечетное

Пояснения.
1. var a:=ArrRandom(10,-15,15); - описывается динамический массив "а", который создается и заполняется данными.
2. a.Println; - вывод элементов массива.
3. a.Where((x,i)->i.IsEven) выделяет из массива "а" элементы, у которых индекс четный (массив "а" - динамический и его элементы индексируются от нуля, поэтому элементы с нечетным порядковым номером имеют четные индексы).
Полученная последовательность элементов посредством Any(x->x.IsEven) проверяется на наличие хотя бы одного элемента с четным значением. Проверка возвращает логическое значение, на основе которого формируется вывод.

Не знаю, какой язык ты используешь, так что объясню на псевдокоде:

1. Создадим массив a[25]
2. Используем цикл For для заполнения случайным числом каждый элемент массива. Что-то вроде этого:
for i = 1 to a.length, где length - длина массива
a[i] = random(-13, 37), где random - функция случайных чисел в используемом тобой языке

3. Окей, массив заполнили. Теперь нужно вывести элементы с четным индексом. И вновь используем for.
Первый вариант:

for i = 1 to a.length step 2
print a[i]

Цикл с шагом 2. Мы пропускаем нечетные числа.
Можно и поставить условие для проверки:

for i = 1 to a.length
if mod(i, 2) == 0 then print a[i], где mod - функция вычисления остатка от деления или любая другая функция проверки четности

В принципе, это все. Пиши, если будут вопросы.