Четные числа на четных местах

[OFK]

Дается некоторое кол-во чисел.Требуется определить максимальное нечетное число на нечетном месте и определить количество этого числа(также на нечетном месте).

[Serge_Bliznykov]

а как это с темой связано?
в названии темы про чётные идёт речь, в самой теме - про нечётные..
Вы уж определитесь, что Вам надо.

И какой Паскаль? небось опять Pascal ABC.NET ?
тогда курите этот код:

  var evens := a.Where((v, i) ->(odd(i) and odd(v)));
  WriteFormat('max = {0}, count = {1}', evens.Max(), evens.Count(v -> v = evens.Max()));

Примечание
odd() - нечётное значение
not odd() - чётное значение