Сортировка в Паскале!

[vlad1991]

Люди помогите пожалуйста!
Как отсортировать массив методом максимума по убыванию???

[Greblin]

Например так

var A: array[1..50] of integer;
     i, j, max, imax: integer;
...
for i := 1 to 49 do
  begin
  max := A[i]; imax := i;
  for j := i+1 to 50 do
    if A[j] > max then begin max := A[j]; imax := j end;
  A[imax] := A[i];
  A[i] := max
  end;

[vlad1991]

если не сложно можно пояснить!Я не понимаю зачем второй цикл?

[Greblin]

Смотрите, что происходит. Мы берём каждый элемент, начиная с первого. Это первый цикл. И дальше среди всех элементов, которые расположены правее него, и его самого ищем максимальный. Это второй цикл. И дальше меняем местами взятый элемент и найденный максимум

[capta1n]

Сортрировка называется сортировкой выбором, один со всеми:

program sort2;
uses crt;
const
 n = 23;
var
 A : array [1..n] of integer;
 x : integer;
 i,k,j : byte;
begin
 clrscr;
 Randomize;
 for i:=1 to n do
 begin
   A[i]:=i;
   write (A[i],' ')
 end;
 writeln;
 writeln;

 for i:=1 to n-1 do
 begin
   j:=i;
   for k:=i+1 to n do
    if A[k]>A[j] then j:=k;
   x:=A[j];
   A[j]:=A[i];
   A[i]:=x
 end;

 for i:=1 to n do write (A[i],' ');

 readln;
end.