Дан

целочисленный массив A (N). Найти наибольшее из нечетных и количество четных чисел, входящих в

последовательность A[1], ..., A[n], A[n]+1.

Program gt;

var n, i, max, l:integer;

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

begin

read (n) ;

max:=0; l:=0;

for i:=1 to n+1 do

begin

read (a[i]) ;

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

if ((abs (a[i]) mod 2=1) and (a[i]>max)) or (max mod 2=0) then max:=a[i];

end;

writeln (max) ;

writeln (l) ;

end.