Простой выбор. Паскаль

[britva666]

Напишите программу сортировки массива в порядке убывания элементов методом простого выбора, которая находит минимальный элемент и ставит его на последнее место в рассматриваемой части массива.

[ОДИНОЧЕСТВО В СЕТИ]

сортировка выбором!

[Disel]

Сами попытались бы решить. Вот мой вариант:

{Sortirovka odnomernogo massiva po vozrostaniyu}
Program DiInet;
Uses crt;
Type mas = array [1..100] of integer;
Var A:mas; n,i,g,x:integer;

BEGIN
 clrscr;

  Write ('Vvesti dlinu massiva A =  ');
  readln(n);

  writeln('--------------------------------------------------------------------------------');
   gotoxy(30,3);
  writeln('Sluchainij massiv');

  Randomize;

   For i:=1 to n do
    Begin
     A[i]:= random(10)   {-50+round(100*random)};
      write (a[i]:5);
    End;

  writeln;
  writeln('--------------------------------------------------------------------------------');
   gotoxy(28,6);
  writeln('Uporyadochnij massiv');

   For g:=1 to n-1 do
    Begin
     For i:=1 to n-g do
      Begin
       if A[i]<A[i+1] then
        Begin
         x:=A[i];
         A[i]:=A[i+1];
         A[i+1]:=x;
        End;
      End;
    End;

   For i:=1 to n do
    write (a[i]:5);
 ReadKey;
END.