Даны три числа,найти разность наибольшого числа с наименьшим.(РЕшить с repeat,until)

Question

Даны три числа,найти разность наибольшого числа с наименьшим.(РЕшить с repeat,until)

Comments

Зачем тут операторы цикла?

---

Сказали через цикл решить.Я через ветвление сам сделал.А цикли не понимаю

---

может три числа в массив загнать? но это тупо...

Answer 1

Const
  n = 3;

var
  m: array[1..n] of integer;
  i, mn, mx: integer;

begin
  Write('Введите через пробел три целых числа: ');
  i := 1;
  repeat
    Read(m[i]);
    i := i + 1
  until i > n;
  mn := m[1];
  mx := mn;
  i := 2;
  repeat
    if mx < m[i] then mx := m[i]
    else
    if mn > m[i] then mn := m[i];
    i := i + 1
  until i > n;
  Writeln('Разность наибольшего с наименьшим равна ', mx - mn)
end.

Тестовое решение:

Введите через пробел три целых числа: 7 9 3
Разность наибольшего с наименьшим равна 6