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

А мне нет

Answer 3

я буду игнорить

Answer 4

Наздоровье

Answer 5

Но вы обвиняете человека в том, чего он не делал

Answer 6

Причем выносите это на публику