const size=4; var tab: array[1..size]ofinteger; tmp: integer; i, j: integer; begin clrscr;
for i:=1to size do begin write(i, ' element: '); readln(tab[i]); end; for i:=size downto2do for j:=size downto size+2-i do begin if tab[j-1]<tab[j]then
tmp:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=tmp;
end; writeln; for i:=1to size do begin writeln(tab[i],' '); end;
begin writeln; writeln('program dokonal sortowania malejacego wpisanych liczb.Dziekuje za uwage ');
writeln('wcisnij Enter aby wyjsc z programu'); end; readkey; end.
Potrzebujesz algorytmu? - Lista kroków bo nie rozumiem?
Przedstawiony tu algorytm nazywa się "Sortowaniem Bąblekowym".