PascalABC.Net

begin

 var n := ReadInteger('Введите размер массива');

 var a := ArrRandom(n, 0, 50);

 a.Println;

 Println(if a.Where(z -> not Odd(z)).Count > a.Where(q -> Odd(q)).Count then a.Where(z -> not Odd(z)).Max else a.Where(q -> Odd(q)).Max);  

end.

Variant 2

const

 amax = 100;

var

 a: array[1..amax] of integer;

 i, Max, Count, Count2, n: integer;

begin

 Randomize;

 Writeln('Введите размер массива');

 Readln(n);

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

 for i := 1 to n do

 begin

   a[i] := Random(1, 50);

   Write(a[i], ' ');

   if not Odd(a[i]) then Count += 1 else Count2 += 1;

 end;

 Writeln;

 Writeln('Колличество четных элементов в массиве: ', Count);

 Writeln('Колличество нечетных элементов в массиве: ', Count2);

 Max := 1;

 if Count > Count2 then  

   for i := 1 to n do

   begin

     if (a[i] > Max) and (not Odd(a[i])) then Max := a[i];

   end

 else

   for i := 1 to n do

   begin

     if (a[i] > Max) and ( Odd(a[i])) then Max := a[i];

   end;

 Writeln('Максимальный элемент: ', Max);

end.

Тестовое Решение:

Введите размер массива

20

Исходный массив

1 22 29 7 1 42 27 47 19 37 30 19 21 41 47 31 40 15 22 33  

Количество четных элементов в массиве: 5

Количество нечетных элементов в массиве: 15

Максимальный элемент: 47