Даны три числа. Найти среднее из них — Pascal(Паскаль)

то есть число, расположенное между наименьшим и наибольшим.

program If13;

Var
  A, B, C, Min, Max: Real;

Begin
  WriteLn('Введите числa A,B и C: ');
  ReadLn(A, B, C);
  { --- Находим максимальный элемент --- }
  If (A > B) And (A > C) Then
    Max := A
  Else If (B > A) And (B > C) Then
    Max := B
  Else If (C > A) And (C > B) Then
    Max := C;

  { --- Находим минимальный элемент --- }
  If (A < B) And (A < C) Then
    Min := A
  Else If (B < A) And (B < C) Then
    Min := B
  Else If (C < A) And (C < B) Then
    Min := C;

  If (A > Min) And (A < Max) Then
    WriteLn('Среднее: ', A)
  Else If (B > Min) And (B < Max) Then
    WriteLn('Среднее: ', B)
  Else If (C > Min) And (C < Max) Then
    WriteLn('Среднее: ', C);

End.

Leave a Comment

39 − 37 =