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.
|
|
|
|
Пузырьками сортировать - слишком просто...Попробуй написать сортировку Хоара
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
