{ **** UBPFD *********** by kladovka.net.ru ****
>> .
Очень небольшой код для сортировки массива. Состоит из двух циклов for.
Сортирует от болшего к меньшему.
Зависимости: нет
Автор: Михон
Copyright: (<Михон>) (с)
Дата: 14 января 2007 г.
********************************************** }
for i:= 1 to 5 do begin //отвечает за место старта проверки
  for j:= i to 5 do begin //сам цикл поверки
  if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
  a:= x[j]; //
  x[j]:= x[i]; //меняем местами
  x[i]:= a; //
  end;
  end;
 end;

var

 x: array [1..5] of integer;

 a,k,i,j: integer;



begin

 writeln ('Vvedite massiv!!!');

 for k:= 1 to 4 do begin //вводим массив

  read (x[k]); //--,--

 end; //--,--

 readln (x[5]); //--,--

 for i:= 1 to 5 do begin //отвечает за место старта проверки

  for j:= i to 5 do begin //сам цикл поверки

  if (x[j]) > (x[i]) then begin //если следующеее число больше i,то

  a:= x[j]; //

  x[j]:= x[i]; //меняем местами

  x[i]:= a; //

  end;

  end;

 end;

 for k:= 1 to 4 do begin //

  write (x[k],' '); //

 end; // выводим массив

 writeln (x[5]); //

 readln; //

end.