Ввести 3 числа и найти среднее из них

[[CODER]]

Vago
Да! У этой последовательности "НЕТ среднего"!!!!
а точнее {1, 2, 2} два - среднее по порядковому номеру ( a[1]=1, b[2]=2, c[3]=2)

Среднее по значению будет в том случае если есть 3 различных элемента минимальный, не равный максимальному и среднее неравное ни мин. ни макс.
x=мин, у=средн, z=макс
( x < y < z )
Т. е. если есть { 3, 5, 1 } средним будет 3

[Vago]

Принадлежит ли точка B=2 вещественной оси OX замкнутому интервалу [A,C], где A = 1, C = 2?...
...
Ладно. Я закончил спорить. Тему можно переименовать в "О пользе составления хороших ТЗ" ))

[ROMA2PVT]

var a,b,c:Integer;
begin
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  write('Введите третье число: ');
  readln(c);
  if (b=c) xor (a=b) xor (c=a) then
  writeln('Среднего значения нет!!!!')
  else
  if a in [b..c]
 then write('Среднее значение: ',a)
 else
    if b in [a..c]
      then write('Среднее значение: ',b)
      else
        write('Среднее значение: ',c);
  Readln;
end.

Вот.С проверкой если введены два или три одинаковых числа.

[NiCola999]

может не xor, а and?

[[CODER]]

Vago Убедил))
Спасибо.
П. С. Ловко подметил о названии темы

[Romer9999]

да... щас бы эти проблемы...

[ROMA2PVT]

может не xor, а and?

Да нет не and.

[blondino4ka_milk]

Вроде как ничего тяжёлого нет! если у меня правильно ещё конечно

	
if(a < b){if (b<=c)x=b; 
else if (a<c) x=c; else x=a;}	
else{if (b<c) if (a<c) x=a; else x=c;}

[[CODER]]

Почти правильно, осталось предусмотреть только

a=3, b=2, c=1

[blondino4ka_milk]

всё...

	if(a<b)
	{if (b<c)x=b; else if (a<c) x=c; else x=a;}	
	else{
	if (b<c) 
	{ if (a<c) x=a; else x=c;}
	else if(c<=a)x=b;}