Для этого мы можем использовать следующий код на Pascal:

program CountEvenOnOddIndex;
const
size = 10; // размер массива
var
arr: array[1..size] of integer;
i, count: integer;
begin
count := 0; // переменная для подсчета четных элементов на нечетных индексах
// заполнение массива случайными числами
for i := 1 to size do
begin
arr[i] := Random(100); // случайное число от 0 до 99
end;
// вывод элементов массива
writeln('Массив:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln;
// подсчет четных элементов на нечетных индексах
for i := 2 to size by 2 do
begin
if arr[i] mod 2 = 0 then
count := count + 1;
end;
writeln('Количество четных элементов на нечетных индексах: ', count);
end.

В этом коде мы создаем массив из 10 элементов и заполняем его случайными числами. Затем мы проходим по всем нечетным индексам в массиве и проверяем, является ли элемент четным числом. Если да, увеличиваем переменную count на 1. В конце выводим количество найденных четных элементов на нечетных индексах.