Напишите программу, в которой сортировка выполняется методом камня- самый тяжелый элемент...

Question

Напишите программу, в которой сортировка выполняется методом камня- самый тяжелый элемент опускается в конец массива. в решение в паскаля

Comments

//FIXEDvara:array[1..10000] of integer;i,m,n,fl, tmp : integer;BeginWriteln('Введите кол-во элементов в массиве');Readln(n);Writeln('Введите элеметы массива: ');for i:= 1 to n do Read(a[i]);m:=n;repeat fl:= m; m:= 0; for i:=1 to fl-1 do if a[i+1] < a[i] then begin m:=i; tmp:=a[i]; a[i]:=a[i+1]; a[i+1]:=tmp; end; until m=0;for i:= 1 to n do Write(a[i], ' ');end.

---

чВ

Answer 1

//Как учили наших дедов...

var
a:array[1..10000] of integer;
i,j,n, tmp : integer;
Begin
Writeln('Введите кол-во элементов в массиве');
Readln(n);
Writeln('Введите элеметы массива: ');
for i:= 1 to n do
  Read(a[i]);
for i:= 1 to n do
  for j:= 1 to n do
    if (a[i] < a[j]) then
    begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp;
    end;
for i:= 1 to n do
  Write(a[i], ' ');
end.