b'\n_START_ARTICLE_\nI\xc5\xa1rinkimo rikiavimo algoritmas\n_START_SECTION_\nPavyzdys\n_START_PARAGRAPH_\nPavyzdys Pascal kalba:_NEWLINE_procedure I\xc5\xa1rinkimas (var a:array of integer; N:integer);var i, j, nuo, t: integer;begin_NEWLINE_  for i := 1 to N-1 do_NEWLINE_  begin_NEWLINE_    nuo := i;_NEWLINE_    for j :=i+1 to N do_NEWLINE_      if a[j] < a[nuo] then nuo := j;_NEWLINE_      t := a[nuo];_NEWLINE_      a[nuo] := a[i];_NEWLINE_      a[i] := t_NEWLINE_    end;_NEWLINE_  end;_NEWLINE_Pavyzdys C++ kalba:_NEWLINE_ 1 void I\xc5\xa1rinkimas _NEWLINE_ 2 { 3     int nuo, t; 4     for(int i = 0; i < N - 1; i++) _NEWLINE_ 5     { 6         nuo = i; 7         for(int j = i+1; j < N; j++) 8         { 9             if (a[j] < a[nuo]) _NEWLINE_10             nuo = j;11         }12         t = a[nuo];13         a[nuo] = a[i];14         a[i] = t;15     }16 }'