Заполнить массив из 10 элементов случайным образом в интервале {10; 20} и найти элемент, равный х пример исходный массив: 13 10 18 12 20 11 13 14 15 20 что ижём? 20 а[5]=20
Любое произведение чисел будет четным, если оно содержит хотя бы оин четный сомножитель, поэтому задача сводится к определению того, есть ли в массиве хоть один четный элемент с нечетным порядковым номером. Почему просто не попытаться перемножить эти элементы? Например потому, что максимальное целое значение в компьютерной математике ограничено количеством байт, отводимых для представления данных такого типа и редко превышает 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.
Пояснения. 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 - функция вычисления остатка от деления или любая другая функция проверки четности
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.