Új hozzászólás Aktív témák

• #1169 Tangerine senior tag KMan #1161

  Új Válasz 2006-05-15 14:29:57 #1169

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz KMan #1161 üzenetére

  for x := 1 to ElemMax - 1 do
  begin
  for y := x+1 to ElemMax do
  begin
  if tomb[x] > tomb[y] then
  {csere-bere, csökkenő sorrendnél nem > hanem <}
  begin
  temp := tomb[x];
  tomb[x] := tomb[y];
  tomb[y] := temp;
  end;
  end;
  end;
  
  [Szerkesztve]

Új hozzászólás Aktív témák