program unos;
var brp,brn,n,i,z:integer;
pros:real;
begin
write('ucitaj n: '); readln(n);
for i:=1 to n do begin
readln(z);
if (z mod 2=0) then brp:=brp+1 else brn:=brn+1;
pros:=pros+i;
end;
pros:=pros/n;
writeln('ima ',brp,' parnih brojeva');
writeln('ima ',brn,' neparnih brojeva');
writeln('prosjek ucitanih brojeva je ',pros:3:3);
readln;
end.