k:=0;m:=0;for i:=1 to 40 do beginif (a[i]>99) and (a[i]<1000) and (a[i]mod2<>0) thenk:=k+1;m:=m+a[i];end;writeln(m/k);end.
k:=0;
m:=0;
for i:=1 to 40 do begin
if (a[i]>99) and (a[i]<1000) and (a[i]mod2<>0) then
k:=k+1;
m:=m+a[i];
end;
writeln(m/k);
end.