Question

Найдите разность максимального и минимального из четырёх чисел.

Answer 1

Var
num: array[1..4] of integer;
min, max: integer;
begin
read(num[1], num[2], num[3], num[4]);
min := num[1];
max := num[1];
for var k := 1 to 4 do if num[k] >= max then max := num[k];
for var k := 1 to 4 do if num[k] <= min then min := num[k];
write(max - min);
end.

Answer 2

Чтобы найти разность между максимальным и минимальным из четырех чисел, мы сначала должны найти эти числа.

Предположим, что у нас четыре числа: a, b, c и d.

1. Сначала найдем наибольшее число из этих четырех. Для этого сравним все пары чисел попарно. Сравним a и b, и запишем большее из них. Затем сравним это число с c, и снова запишем большее. Наконец, сравним получившееся число с d, и запишем наибольшее.

Предположим, что наибольшим числом является max.

2. Затем найдем наименьшее число из четырех. Сделаем то же самое, что и в предыдущем шаге, но каждый раз выбирая меньшее число. В результате получим min - наименьшее число из четырех.

3. Чтобы найти разность между максимальным и минимальным числами, вычтем min из max: max - min.

Вот и все! Разность между максимальным и минимальным числами равна max - min.