Даны значения трех переменных а, в и с, отличные друг от друга. Обменять значения переменных с наибольшим и с наименьшим значеннями. реши на pascal

Конечно! Давайте рассмотрим, как можно обменять значения трех переменных в языке программирования Pascal. Предположим, что у нас есть три переменные: a, b и c. Мы хотим обменять значения переменных с наибольшим и с наименьшим значениями. Вот пример кода, который выполняет эту задачу:

program SwapMinMax;

var
  a, b, c: Integer;
  min, max: Integer;

begin
  { Инициализация переменных }
  a := 3;
  b := 1;
  c := 2;

  { Находим наименьшее и наибольшее значение }
  min := a;
  max := a;

  if b < min then
    min := b;
  if c < min then
    min := c;

  if b > max then
    max := b;
  if c > max then
    max := c;

  { Обмен значениями }
  if (a = min) then
  begin
    if (b = max) then
    begin
      a := max; 
      b := min;
    end
    else if (c = max) then
    begin
      a := max; 
      c := min;
    end;
  end
  else if (b = min) then
  begin
    if (a = max) then
    begin
      b := max; 
      a := min;
    end
    else if (c = max) then
    begin
      b := max; 
      c := min;
    end;
  end
  else if (c = min) then
  begin
    if (a = max) then
    begin
      c := max; 
      a := min;
    end
    else if (b = max) then
    begin
      c := max; 
      b := min;
    end;
  end;

  { Вывод результата }
  WriteLn('Значения после обмена: a = ', a, ', b = ', b, ', c = ', c);
end.

В этом коде:

1. Мы инициализируем три переменные a, b и c.
2. Используем условные операторы для нахождения наименьшего и наибольшего значений.
3. Затем выполняем обмен значений между переменными, если одна из них содержит наименьшее значение, а другая — наибольшее.
4. В конце выводим результаты на экран.

Этот код решает поставленную задачу. Вы можете изменить значения переменных a, b и c, чтобы проверить работу программы с другими данными. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!