Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси

@RazorIlya19 · Регистрация: 07.12.2013

Author24 — интернет-сервис помощи студентам

Даны три вещественных, не равных между собой числа a, b, c. Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси. Например, если a=5, b=2, c=4, то Y=4.

@APALoff · 13.02.2014, 16:30

8

Pascal

Type mas = array [1..3] of Real;
Var n : mas;
 
Function Y(m : mas) : Real;
Var i,j : Byte; tt : Real;
Begin
  For i:=1 to 2 do
    For j:=i+1 to 3 do
      If m[j]>m[i] then
      Begin
         tt:=m[j];
         m[j]:=m[i];
         m[i]:=tt;
      End;
  y:=m[2];
End;
 
Begin
  ...
  { n[1]:=a; n[2]:=b; n[3]:=c; }
  Writeln(Y(n):8:4);
  ...
End.

@RazorIlya19 0 / 0 / 0 Регистрация: 07.12.2013 Сообщений: 37
		1
	Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси 13.02.2014, 16:10. Показов 2063. Ответов 1 Метки нет (Все метки) Даны три вещественных, не равных между собой числа a, b, c. Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси. Например, если a=5, b=2, c=4, то Y=4. 0

	13.02.2014, 16:30

Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси

Решение