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));