Условие:
Type ATYPE=array[1..n] of integer;\nProcedure StupidSort( var A:ATYPE; n: integer);\nVar i : integer;\nBegin
i:=1;
While (i<n) do
If A[i]<A[i+1] then
Begin swap(A[i],A[i+1]);
i:=i-1;
If i=0 then i:=1;
End
Else i:=i+1;\nEnd;
![Type ATYPE=array[1..n] of integer; StupidSort( var A:ATYPE; n: integer); i : integer; i:=1; While (i](/public/images/library/external/library-detail-hero-book.png)
Type ATYPE=array[1..n] of integer;\nProcedure StupidSort( var A:ATYPE; n: integer);\nVar i : integer;\nBegin
i:=1;
While (i<n) do
If A[i]<A[i+1] then
Begin swap(A[i],A[i+1]);
i:=i-1;
If i=0 then i:=1;
End
Else i:=i+1;\nEnd;

Внутри — полный разбор, аргументация, алгоритм решения, частые ошибки и как отвечать на каверзные вопросы препода, если спросит
Попробуй решить по шагам
Попробуй один шаг и продолжи в режиме обучения или посмотри готовое решение