Сортировка переменных, заданных числами [Паскаль]

[mak4727]

Написать программу, которая вводит три целых числа в переменные a,b,c, а потом сортирует их так , чтобы в переменной a оказалось наибольшее число, в переменной b-среднее число, а в переменной с-наименьшее.
Помогите пожалуйста

[Serge_Bliznykov]

сортировку "пузырьком" (она же сортировка обменом) знаете ?
ну по такому же принципу:

  readln(a,b,c);
  if c>b then begin tmp := c; c := b; b := tmp end;
  if b>a then begin tmp := a; a := b; b := tmp end;
  if c>b then begin tmp := c; c := b; b := tmp end;
  WriteLn('a=',a,' b=',b,'  c=',c);
  readln;

[Vaigard]

Только не забудь tmp в var объявить

[mak4727]

Serge_Bliznykov, Vaigard, спасибо.

Честно говоря не допонял что такое tmp?
Объясните пжл... Или ссылочку где про это написано?

[Valio]

tmp это просто переменая типа Integer, имя которой ты сам и придумал.

[Hacker19_90]

tmp это переменная для обмена!
Добавить в var это сделать такое описание

var
    tmp: integer;

[mak4727]

Угу спс за объяснение

[veniside]

Помню со школы смешной способ обмена значений a и b без tmp:

a := a + b;
b := a - b; // (a + b) - b = a
a := a - b; // (a + b) - a = b

(не советую им пользоваться, т.к. возможно переполнение и потеря данных).

[Serge_Bliznykov]

Помню со школы смешной способ обмена значений a и b без tmp:
...
(не советую им пользоваться, т.к. возможно переполнение и потеря данных).

ну тогда Вам в копилку ещё один способ.
простой и без возможности потери данных (ввиду переполнения)

  a := a xor b;
  b := a xor b;
  a := a xor b;

только всё это хакерство и шаманство. И лучше этим не пользоваться!