Значение переменных x, y, z поменять местами так, чтобы они были упорядочены по возрастанию. (написать программу в Паскале)

Question

Значение переменных x, y, z поменять местами так, чтобы они были упорядочены по возрастанию. (написать программу в Паскале)

Гость

Ответ(ы) на вопрос:

Accepted Answer

var max,min,x,y,z:integer; begin readln(x,y,z); //Найдём максимум if (x>y) AND (x>z) then max:=x else if (y>x) AND (y>z) then max:=y else max:=z; //Найдём минимум if (xmin) AND (x<>max) then writeln(min,' ',x,' ',max) else if (y<>min) AND (y<>max) then writeln(min,' ',y,' ',max) else writeln(min,' ',z,' ',max) end.