604495330

Program sekwencyjny

begin

for i:=l to n do read(a[k]); sort(1,n);

for k:=l to n do write(a[k]);

end

procedurę sort(lewy,prawy:integer) begin

for i:=lewy to prawy do

for j:=i+l to prawy do if a[j]<a[i] then begin temp:=a[j]; a[ j]:=a[i]; a[i]:=temp;

end

end;

Przykład - sortowanie liczb