алгоритмы упорядочивания

[Тигран001]

Сообщение от xakkkkker

Вот полностью готовая задача. Делает сортировку методом пузырька...
На лекции ходи братан все будет понятно.....
Я тоже такой же студент как и ты 1 курс программист...

Program SORTIROVKA_MASSIVA;
 const n=10;
 var
  mas: array[1..n] of integer;
  pr,i,j:integer;
  
 begin
  For i:= 1 to n do
   Readln(mas[i]);
  For j:=1 to n do 
  For i:= 1 to n-1 do
   If mas[i]>mas[i+1] then
    begin
	 pr:=mas[i+1];
	 mas[i+1]:=mas[i];
	 mas[i]:=pr;
	end;

  For i:= 1 to n do
   Writeln (mas[i]);
 end.

спасибо тебе большое!

[Тигран001]

посмотрите пожалуйста и эту, может у кого есть...

Упорядочить по убыванию массив действительных чисел а1, .. ,аn, используя алгоритм сортировки простыми вставками.

[Филантроп]

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,buf:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
for i:=2 to n do
 begin
  buf:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]<buf) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=buf;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.

[Тигран001]

Сообщение от Филантроп

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,buf:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
for i:=2 to n do
 begin
  buf:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]<buf) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=buf;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.

и тебе спасибо большое ))

[xakkkkker]

Сообщение от Филантроп

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,buf:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
for i:=2 to n do
 begin
  buf:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]<buf) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=buf;
 end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.

По моему это тот пузырковый метод. Как мне кажется не оптимально написан или я туплю. Я еще не понял Тигран001 метод вставки это как?

[Филантроп]

это
вот так
На лекции ходи братан все будет понятно.....

[Тигран001]

Сообщение от xakkkkker

По моему это тот пузырковый метод. Как мне кажется не оптимально написан или я туплю. Я еще не понял Тигран001 метод вставки это как?

Даже не знаю как объяснить.

Неупорядоченный элемент вставляешь на нужное место и все элементы номера которых больше нового номера этого элемента сдвигаются вправо.

Короче если номер станет 5. То бывший номер 5 становится 6, 6 становится 7, 7-8 и т.д.

[Юлько]

помогите,плиз, очень нужно11
Дана невпорядкована послідовність з n чисел.Скласти программу пошуку найменьшого числа к елементів, які треба видалити з заданої послідовності так, щоб залишилась зрастаюча послідовність.