|
|
сортировка массива методом "пузырька"
{сортировка массива методом "пузырька"}
program sort_bubble;
const
N=6; {размерность массива}
var
mas:array [1..N] of integer;
i,k:integer;
tmp:integer;
begin
{Ввод значений массива}
for i:=1 to N do
begin
writeln('Введите ',i,' элемент массива ');
read(mas[i]);
end;
{Сортируем массив}
for k:=1 to N-1 do
begin
for i:=1 to n-1 do
begin
if mas[k]<mas[i] then
begin
tmp:=mas[k];
mas[k]:=mas[i];
mas[i]:=tmp;
end;
end;
end;
{Печать массива}
for i:=1 to N do
write(' ',mas[i]);
end.
|
| Категория: Примеры программ | Добавил: Admin (17.12.2009)
|
| Просмотров: 2345
| Рейтинг: 5.0/1 |
|
|
-->
-->
| linux-mgd.3dn.ru © 2024 |
 |
|
