Question

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

Answer 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.