Sacar promedio de Nro.. pares

[Casimiro Noteví]

Claro, no he contestado nada porque estaba esperando que explicase correctamente el error que tiene.

[luisito2011]

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;

[Casimiro Noteví]

Si ves mi ejemplo... he usado el tipo "double", no el 'integer'
Si no te importa la precisión ni los decimales, entonces usa 'div' en lugar de la barra de dividir '/'

Código Delphi [-]
pro := Sum div Cont;

[luisito2011]

omg-- se me olvido del DIV.. bueno gracias..... ago otro tema tengo otro problema... siempre con problemas