home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / internet / Jeremy / tp / ulohy / 15.pr < prev   
Encoding:
Text File  |  1999-08-03  |  429 b   |  32 lines
  1. Reseni ulohy c. 15 (7.12.98)
  2. ============================
  3.  
  4. {vlastni algoritmus}
  5.  
  6. const n = 20;
  7.  
  8. type index = integer;
  9.      prvek = integer;
  10.      pole = array [1..n] of prvek;     
  11.  
  12. var i, j, k: index;
  13.     x: prvek;
  14.     a: pole;    
  15.  
  16. begin
  17.     for i:=1 to n-1 do
  18.      begin
  19.         k:=i;
  20.         x:=a[i];
  21.         for j:=i+1 to n do
  22.          if a[j]<x then
  23.           begin
  24.             k:=j;
  25.             x:=a[j];
  26.          end;
  27.         a[k]:=a[i];
  28.         a[i]:=x;
  29.     end;
  30. end.
  31.  
  32.