uses Crt;
const n=10;
Type Mas=array [1..n] of real;
var  X: Mas;
     i, Col: integer;
     Sum, Sred: real;
begin
ClrScr;
for i:=1 to n do
   begin
      Write (' X[',i,'] ='); ReadLn(X[i]);
      if  frac (X[i])=0 and (X[i]  mod 2 =0)  then
      begin
            Col:=Col+1;
            Sum:=Sum+X[i];
      end;
    end;
    WriteLn;
    Sred:=Sum/Col;
   WriteLn (' Количество четных = ', Col);
   Writeln (' Их среднее число = ', Sred:6:3);
ReadLn;
end.