Решение есть. Нужно его объяснить. Опишите на русском языке или на одном из языков…

Const N=30; Var a: array [1… N] of integer; MaxEv, MaxOdd, I: integer; begin for i: =1 to N do begin write ('a[', i , ']='); readln (a[i]); end; MaxEv: =0; MaxOdd: =0; For I: =1 to N do { перебираем все элементы массива} if a[i] mod 2=0 then { проверяем делится ли текущий элемент на 2 без остатка} begin if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного} MaxEv: =a[i]; {присваиваем новое наибольшее четное значение} end else if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного} MaxOdd: =a[i]; {присваиваем новое наибольшее нечетное значение} Writeln ('MaxEv — MaxOdd=', MaxEv, ' — ', MaxOdd, '=', MaxEv — MaxOdd); end.