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

[laponka]

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

 

[MrQwerty]

laponka, обращайся в Icq:562215911 или e-mail: mrproqwerty@gmail.com ... P.s. В аське онлайн круглосуточно, почта проверяется каждый час..

 

[etc]

В аське онлайн круглосуточно, почта проверяется каждый час..

ЁПРСТ, у нас каждую минуту. лапонка, давай к нам.

 

[Guest]

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

А это разве сложно?
Могу сказать алгоритм, сравниваете элементы массива, начиная с одного, и самый больший сохраняете в в другой массив, и это все в цикле, тоесть один цикл будет работать до тех пор, пока не выберет самый больший. Был бы компилятор, написал бы...

 

[VitoScaletta]

Сортировка по возрастанию
--------------------------------

var i, n, j: integer;
a: array [1..100] of integer;

begin

read;

for i:=1 to n do
read(a);

for i:=1 to n do
for j:=2 to n do
if a[j]<a[j-1] then
swap(a[j], a[j-1]);

for i:=1 to n do
write(a:5);

end.

Сортировка по убыванию
------------------------------

var i, n, j: integer;
a: array [1..100] of integer;

begin

read;

for i:=1 to n do
read(a);

for i:=1 to n do
for j:=1 to n do
if a[j]<a[j+1] then
swap(a[j], a[j+1]);

for i:=1 to n do
write(a:5);

end.

Надеюсь, что помог))