Геннадий Савченков
Ал
Алексей
Например, сортировка методом "пузырька"
var
a : array [ 1 .. 100] of integer;
i , j , buf: integer;
begin
read(n);
for i := 1 to n do
read( a [ i ]) ;
for i := 1 to n - 1 do
for j := i + 1 to n do
if a [ i ] >a [ j ] then
begin
buf := a [ i ] ;
a [ i ] := a [ j ] ;
a [ j ] := buf;
end;
writeln;
writeln( 'Массив после сортировки пузырьковым методом: ' ) ;
for i := 1 to n do
write ( a [ i ] , ' ' ) ;
readln;readln
end.
Похожие вопросы