Sacar promedio de Nro.. pares

[Casimiro Noteví]

Empezado por luisito2011

bueno ahora..el ejercicio es este...

//Ingresar un numero.. y sacar el promedio de los digitos pares//

Así, de memoria, más o menos es algo así:

Código Delphi [-]
function getPromedioDigitosPares( cNumero:string ):double;
var
  iX : integer;
  dSuma : double;
  iDigitos : integer;
begin
  dSuma := 0;
  iDigitos := 0;
  for iX:=0 to length(cNumero) do
  begin
    if (iX mod 2)=0 then
    begin
      dSuma := dSuma + StrToFloat(cNumero[iX]);
      inc(iDigitos)
    end;
  end;
  Result := dSuma / iDigitos;
end;

Y la llamada sería algo así:

Código Delphi [-]
ShosMessage(FloatToStr(getPromedioDigitosPares('8942472384')));

Si no te he entendido mal, es algo así.