Дан массив целых чисел. Найти номер первого чётного элемента массива (массив просматривайте с конца, используя цикл for … downto). Если чётных элементов нет, то должно быть напечатано соответствующее сообщение.

Вопрос от пользователя: Камилла

Дан массив целых чисел. Найти номер первого чётного элемента массива (массив просматривайте с конца, используя цикл for … downto). Если чётных элементов нет, то должно быть напечатано соответствующее сообщение.

Ответ: Катя

Program gt;

var a:array[1 … 100]of longint;

l, q, i, n:longint;

begin

read (n);

for i:=1 to n do

begin

read (a[i]);

end;

for i:=n downto 1 do

begin

if (a[i]mod 2=0) then l:=i;

end;

write (l);

end.