Сортировка одномерного массива

[laponka]

Ребята помогите написать прогу на delphi для сортировки одномерного массива из 20 чисел по возростанию и спаданию. Числа вводятся вручную.Спасибо!!!!!!!!

[VadEr]

Какой тип сортировки необходимо прменить?

[laponka]

Сообщение от VadEr

Какой тип сортировки необходимо прменить?

а какие они ваше бывают? я не нарезаю

[VadEr]

Ну, из самых простых это метод прямого выбора или метод обмена, но существуют и более сложные в техническом плане.

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 type vector = array[1..20] of integer;
procedure exchange(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c; end;
procedure Sorting (n:integer; Var x:Vector);
var i:integer; swop:boolean;
begin
repeat
swop:=false;
for i:=1 to n-1 do
if x[i]>x[i+1] then begin         //esli "<" togda po ubivaniiu
exchange(x[i],x[i+1]); swop:=true; end;
n:=n-1;
until not swop;
end;
procedure Sorting2 (n:integer; Var x:Vector);
var i:integer; swop:boolean;
begin
repeat
swop:=false;
for i:=1 to n-1 do
if x[i]<x[i+1] then begin
exchange(x[i],x[i+1]); swop:=true; end;
n:=n-1;
until not swop;
end;
var
      b:vector;
   i:integer;

 begin
writeln('input 20 numbers');
for i:=1 to 20 do 
readln(b[i]);
 writeln(' vector');
for i:=1 to 20 do 
write (b[i]:6);
 end;
sorting(20,b);
writeln;
writeln('+ sort vector');
for i:=1 to 20 do
write (b[i]:6);
sorting(20,b);
writeln;
Sorting2(20,b);
writeln('- sort vector');
for i:=1 to 20 do
write (b[i]:6);
readln;
end.

[laponka]

Сообщение от VadEr

Ну, из самых простых это метод прямого выбора или метод обмена, но существуют и более сложные в техническом плане.

по ходу нужно самое простенькое

Люди а можно исходник в архиве?

[VadEr]

Вот пример оконного приложения:

[laponka]

Сообщение от VadEr

Вот пример оконного приложения:

Спасибо друг!!!! отличный форум!!!!!!!!!