Sacar promedio de Nro.. pares

[ecfisa]

Hola luisito2011.

¿ Que error te arroja el procedimiento cuando intentás ejecutarlo en consola ? ¿ De compilación, de ejecucion ?

También es importante que escribas textualmente el mensaje que te arroja y si además indicas la línea donde se produce, mejor todavia.

Un saludo.

[Casimiro Notevi]

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 Notevi]

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