var

  a: array[1..10] of integer;  //Массив а

  i, index: integer;  //index - индекс последнего элемента с нечетным значением

begin

  write('Исходный массив:  ');

  for i:= 1 to 10 do  {Заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}

  begin

    a[i]:= random(10) + 1;

    write(a[i], '  ');

    if a[i] mod 2 = 1 then index:= i;

  end;

  writeln;

  writeln('Последний элемент с нечетным значением:  a[', index, '] = ', a[index]);  

end. 

Отметь решение как лучшее)