Programa de promedio

[ecfisa]

Hola.

Y me quedé pensando...

Se puede simplificar aún más:

Código Delphi [-]
var
  Cont: Integer = 0;
  Prom: Double = 0;

procedure TForm1.EditExit(Sender: TObject);
var
  cd: Double;
begin
  if TryStrToFloat(TEdit(Sender).Text, cd) then
  begin
    Prom:= Prom + cd;
    Inc(Cont);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Prom > 0 then
    ShowMessage(Format('El promedio es: %8.2f',[Prom/Cont]))
  else
    ShowMessage('Nada que promediar');
  Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear;
  Prom:= 0;
  Cont:= 0;
end;

Saludos.