Пузырьковый метод сортировки массива

@Porter · Регистрация: 28.04.2010

Студворк — интернет-сервис помощи студентам

Вот препод задачу задал нам, сказал типа пузырьковым методом на Паскале легко решить((((не знаю как(((

@Puporev · 28.04.2010, 11:52

Pascal

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{сортировка пузырьком простая}
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.

@xVaLkyRx · 28.04.2010, 11:54

http://ru.wikipedia.org/wiki/Сортировка_пузырьком
http://www.cyberguru.ru/progra... page5.html

@Porter 0 / 0 / 0 Регистрация: 28.04.2010 Сообщений: 9
		1
	Пузырьковый метод сортировки массива 28.04.2010, 10:54. Показов 9675. Ответов 2 Метки нет (Все метки) Вот препод задачу задал нам, сказал типа пузырьковым методом на Паскале легко решить((((не знаю как((( 0

@xVaLkyRx 8 / 8 / 1 Регистрация: 11.03.2010 Сообщений: 32
	28.04.2010, 11:54	3
	http://ru.wikipedia.org/wiki/Сортировка_пузырьком http://www.cyberguru.ru/progra... page5.html 0

Опции темы

Пузырьковый метод сортировки массива

Решение