var a:array[1..8]of integer;
     i,k,s:integer;
begin
 for i:=1 to 8 do
  begin
   a[i]:=random(10)+1;
   write(a[i],' ');
   if a[i] mod 2=0 then k:=k+1
                         else s:=s+a[i];
  end;
 writeln;
 writeln('kol-vo chet elem:',k,' summa nechet:',s);
end.