Question

任给三个数，求其中间数 delphi

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

对给定的三个数进行排序，则第二个数即为结果!

Answer 2

const
  tmpInt_1 = 5;
  tmpInt_2 = 2;
  tmpInt_3 = 4;

var
  tmpInt: Integer;
begin
  tmpInt := Min(tmpInt_1, tmpInt_2);
  if tmpInt <>Max(tmpInt, tmpInt_3) then
    tmpInt := Min(Max(tmpInt_1, tmpInt_2), tmpInt_3);
  ShowMessage('中间数是：' +IntToStr(tmpInt));
end;