Решение: Для определения количества нужных нам элементов проверим каждый элемент массива с помощью цикла for.
По заданию нам даны три переменные — i, j, min. Переменную i используем как счетчик цикла, переменную min — для поиска значения элемента, переменную j — для сохранения индекса этого элемента.
Так как мы ищем минимальный элемент, то перед проверкой массива переменной min следует присвоить максимально возможное значение, то есть min:=300.
Каждый повтор цикла будет проверятся, соответствует ли элемент массива с индексом i условию, если соответствует, то переменной min будет присваиваться значение этого элемента, а переменной j — индекс этого элемента, то есть значение счетчика i.
Теперь составим условие. Условию соответствует элемент, который 1. четный; 2. меньше переменной min. То есть:
1. Так как число называется четным в том случае, если остаток от деления на 2 этого числа равен нулю, то для проверки четности элемента условие будет выглядеть так:
(a[i] mod 2 = 0).
2. Для поиска наименьшего элемента используем такое условие:
(a[i] < min).
Составим программу:
//присвоим переменной min максимально возможное значение
min := 300;
//проверим каждый элемент массива
for i:=1 to n do
if (a[i] mod 2 = 0) and (a[i] < min) then
begin
min := a[i];
j := i;
end;
//выведем результат на экран
writeln(j);