Среди вводимых трёх чисел найти разность наибольшего и наименьшего

1

Ответы и объяснения

2013-10-20T16:35:47+00:00
Var a1,a2,a3,max,min,q:integer;
begin
read (a1,a2,a3);
if a1<a2 and a1<a3 then min:=a1;
if a2<a1 and a2<a3 then min:=a2;
if a3<a2 and a3<a1 then min:=a3;
if a1>a2 and a1>a3 then max:=a1;
if a2>a1 and a2>a3 then max:=a2;
if a3>a2 and a3>a1 then max:=a3;
q:=max-min;
write (q);
end.