Ввести одномерный массив А, состоящий из целых чисел, вывести его.Найти номер К- номер первого чётного элемента массива .Преобразовать последние К элементов массива путём их умножения на значение первого четного. Если преобразование не возможно, то вывести соответствующее сообщение.

Прогоняете в цикле массив, начиная с первого элемента, и проверяете их на четность, как только найдете первый четный, цикл можно завершить. Если четный элемент не будет обнаружен, то выводите соответствующее сообщение, иначе, начиная с последнего элемента, К элементов умножаете на A[K].

for i:=N downto N-K+1 do begin
A[i]:=A[i]*A[K];
end;