Напишите программу, которая находит среднее из трёх введённых чисел. Предполагается, что...

Question

Напишите программу, которая находит среднее из трёх введённых чисел. Предполагается, что все три числа различные.

Answer 1

var a,b,c,max,min,s: integer;

begin

readln(a,b,c);

if a>b then max:=a else max:=b;

if c>max then max:=c;

if a if c s:=(a+b+c)-(max+min);

writeln(s);

end.

Пример:

5 2 9

5