Среднее число по величине из трех введенных

[fermerius]

Можно ли как-то выбрать среднее число из трех введенных, кроме как операторами if.. then ? т.е. числа: 3,9,7. чтобы выводилось среднее, в этом случае 7.

У меня только так получилось:

if a<b then
if b<c then writeln(b);
if a>b then
if b>c then writeln(b);


if a>b then
if a<c then writeln(a);
if a<b then
if a>c then writeln(a);


if c<b then
if c>a then writeln(c);
if c>b then
if c<a then writeln(c);

[Rusl92]

например так

if a in [b..c]
 then write(a)
 else
    if b in [a..c]
      then write(b)
      else
        write(c);

без if тут не обойтись, но код стал выгядеть красивее - и быстрее выполняется!

[fermerius]

Спасибо) это то что нужно )

[Arigato]

Вариант без использования оператора IF:

function Max (A, B: Integer): Integer;
begin
  Result := (A + B + Abs (A - B)) div 2;
end; {func Max}

function Min (A, B: Integer): Integer;
begin
  Result := (A + B - Abs (A - B)) div 2;
end; {func Max}

var A, B, C, Sred: Integer;

begin
  A := 15;
  B := 5;
  C := 10;
  Sred := Min (Min (Max (A, B), Max (B, C)), Max (A, C));
  WriteLn (Sred);
  ReadLn;
end.