var a: array[1..20] of integer;

i,s,k:integer;

cr: real;

begin

 for i:=1 to 20 do

   if i mod 2 = 0 then a[i]:=random(-10,-1) else

     a[i]:=random(1,10);

   for i:=1 to 20 do  

   if a[i] mod 2 = 0 then begin write (a[i],' ');

   s:=s+a[i];

   k:=k+1; end;

   cr:=s/k;

   writeln;

   writeln('s=',s);

   writeln(cr);

    for i:=1 to 20 do  

   if a[i] >4 then write (a[i],' ');

end.