Question

Задача:

Даны три различных целых числа (от -30000 до 30000). Вывести среднее из них.

Формат ввода:

В первой строке - первое целое число, во второй строке - второе целое число, в третьей - третье.

Формат вывода:

Целое число.

Пример входных данных

2
3
4
Пример выходных данных

3
Написать на паскале, даю 40 баллов

Answer 1

var

a, b, c, avg: integer;

begin

readln(a);

readln(b);

readln(c);

if a < b then

begin

 if b > c then  

  begin

   if a > c then avg := a

   else avg := c;

  end

 else avg := b;

end

else

begin

 if (a > b) and (c > a) then avg := a

 else avg := c;

 if (a > b) and (b > c) then avg := b;

end;

if (a = b) or (b = c) then avg := b;

if a = c then avg := a;

writeln(avg);

end.