25-08-2008
|
 |
Miembro Premium
|
|
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 27
|
|
Cita:
Empezado por maeyanes
Corrigiendo un par de errores de Delphius:
Código Delphi [-]function Promedio(Inicial, Final: integer): double; var suma, Ini: integer; begin suma := 0; Ini := inicial; while Ini <= final do begin suma := suma + Ini; inc(Ini) end; result := suma / (Final - Inicial + 1) end;
Saludos...  |
¡Auch! Eso dolió 
Saludos, |