Задача: Даны три различных целых числа (от -30000 до 30000). Вывести среднее из них.
Формат ввода:
В первой строке - первое целое число, во второй строке - второе целое число, в третьей - третье.
Формат вывода:
Целое число.
Пример входных данных
2
3
4
Пример выходных данных
3
Написать на паскале,
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.