Новые сообщения · Правила  
Страница 1 из 11
Форум ПРОГРАММИСТОВ » УЧЕБНЫЕ МАТЕРИАЛЫ » Лабораторки » Сортировка по возрастанию
Сортировка по возрастанию
Const
n=10;
var
Massiv:array[1..n]of integer;
i,j,q:integer;
begin
for i:=1 to n do
read(Massiv[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if Massiv[j]>Massiv[j+1] then begin
q:=Massiv[j+1];
Massiv[j+1]:=Massiv[j];
Massiv[j]:=q;end;
for i:=1 to n do
write(Massiv[i],' ');
end.
1 | Автор: Cristina | 2012-11-14, 19:36   |  Репутация: [ + 0 ]
1 | Автор: Cristina | 2012-11-14, 19:36   |  Репутация: [ + 0 ]
Пузырьками сортировать - слишком просто...Попробуй написать сортировку Хоара

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-11-14, 19:39   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » УЧЕБНЫЕ МАТЕРИАЛЫ » Лабораторки » Сортировка по возрастанию
Страница 1 из 11
Поиск: