var a:array[1..15] of integer;
i,s,k:integer; sr:real;
begin
for i:=1 to 15 do begin a[i]:=random(50); write(a[i]:4);end;
for i:=1 to 15 do
if a[i] mod 2=0 then begin inc(k); s:=s+a[i]; end;
sr:=s/k;
writeln;
writeln('סנוהםוו אנטפלוע=',sr:4:2);
end.