Измените программу так, чтобы с ее помощью можно было найти: а) максимальное из чисел a,...

Question

Измените программу так, чтобы с ее помощью можно было найти: а) максимальное из чисел a, b, c: б) максимальное из чисел b, c, d в) минимальное из 4 чисел: г) разность максимального и минимального из 4 чисел Помогите пожалуйста!

---

Answer 1

а) Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(a, b), c);

б) Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(b, c), d);

в) Добавить функцию

function min (x, y: integer): integer;

begin

 if x > y then min := y else min := x;

end

Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := min(min(a, b), min(c,d));

г) (с добавленной функцией из пункта в) !!!)

Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(a, b), max(c, d)) - min(min(a, b), min(c, d));

Comments

Спасибо!