Selection sort: differenze tra le versioni

Versione delle 17:11, 2 dic 2007

Versione delle 17:45, 2 dic 2007

Riga 74:

procedure SelectionSort(var a: array[1..dim] of integer);

var

n,i,j,pos,minposmin,aus:integer;

begin

for i:=1 to n-1 do

Riga 80:

pos:= i;

for j:=(i+1) to n do

if a[j]< a[posposmin] then

posposmin:= j;

aus:= a[i];

a[i]:= a[posposmin];

a[posposmin]:= aus;

end;

end;