Question

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

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.