Написать программу нахождения суммы большего и меньшего из трёх чисел на языке Паскаль.

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

Логика простая:

1. Считаем, что минимальное и максимальное значения равны первому числу.

2. Сравним второе и третье числа с текущими min и max и при необходимости обновим их.

3. Выведем min + max.

Программа на Pascal:

pascal
Копировать код
program SumMinMaxOfThree;
var
  a, b, c: integer;
  mn, mx: integer;
begin
  readln(a, b, c);
  mn := a;
  mx := a;
  if b < mn then mn := b;
  if b > mx then mx := b;
  if c < mn then mn := c;
  if c > mx then mx := c;
  writeln(mn + mx);
end.

Как это работает на примере: если введено 7 2 10, то mn = 2, mx = 10, выводится 12.