ok.. bueno lo siento ..esto es lo que hice.. si esta mal .. me corrigen.. oh si puedo hacerlo de otra forma..espero me ayuden..
saludos..
(' Tambien probe.. cambiando lo que devuelve la funcion Integer por Real.. y.. el prom.. tambien en real... pero me salen unos numero.. muy largos..
Código Delphi
[-]function Promediopar(var n:cnumeronatural):integer;
var
cont,i,sum,pro:integer;
begin
cont:=0;
sum:=0;
for i := 1 to n.numerodigitos do
begin
if (n.Digito(i) mod 2) =0 then
sum := sum + n.Digito(i);
cont:=cont+1;
end;
pro:=Sum/Cont; (error *Incompatible types:'Integer' and extended *)
Promediopar:=pro; (error*Incompatible types:'integer' and extended *)
end;
var a:cnumeronatural;
x:integer;
begin
a:=cnumeronatural.Crear;
WriteLn('Digite Un Numero'); Readln(x);
A.AsignarValor(x);
WriteLn('Promedio De Digotos Pares ' ,promediopar(a));
readln;