Какая строка пропущена в описанной части программы для сортировки элементов массива а по невозрастанию?
repeat
p:=true;
for i:=1 to n-1 do
...
then begin
p:=false;
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
until p;

Варианты ответов
if a[i]>a[i+1]
if i
if a[i]
if i>a[i]

Question

Информатика: Какая строка пропущена в описанной части программы для сортировки элементов массива а по невозрастанию? repeat p:=true; for i:=1 to n-1 do ... then begin p:=false; k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; end; until p; Варианты ответов if a[i] a[i+1] if i if a[i] if i a[i] ​

MASTER2008 · Accepted Answer

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
var f:=True; // флажок перестановки
var p:=1; // номер перестановки
var n:=a.Length;
while f do begin
    f:=false;
    for var i:=0 To n-p-1 Do
      if a[i]>a[i+1] then begin
        Swap(a[i],a[i+1]);
        f:=true
        end;
      p+=1
    end
end;

begin
var a:=ArrRandom(10,-10,10); a.Println;
BubbleSortFlag(a);
a.Println
end.

Пример
-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5

MOGZ ответил