Tömb feltöltése véletlen számokkal és az elemek elrendezése legkisebb elem kiválasztásával (Rendezes.pas) program Rendezes; uses crt; var i,n,x,j:integer; a:array [1..100] of integer; BEGIN clrscr; i:=1; write('Hany szam legyen a tombben? '); readln(n); while (i<=n) do begin Feltöltjük a tömböt n darab véletlen számmal. a[i]:=trunc(90*random+1); i:=i+1; end; writeln('A szamok rendezes elott:'); i:=1; while (i<=n) do begin writeln('A tomb ',i,'. eleme: ',a[i]); i:=i+1; end; i:=1; while (i<n) do begin A tömb aktuális i-edik eleméhez hasonlítjuk a tömb összes többi elemét. Ha a sorrend nem megfeleleő, akkor cserélünk. Amennyiben elérünk a tömb végére, akkor a következő indexű elemet hasonlítjuk az utána lévőkhöz. Ezt addig folytatjuk, míg végig nem érünk a tömbön. j:=i+1; while (j<=n) do begin if(a[j]<a[i]) then begin Ha azt észleljük, hogy a vizsgált elemnél kisebb elemet találtunk, akkor a kettő értékét megcseréljük. x:=a[j]; a[j]:=a[i]; a[i]:=x; end; j:=j+1; end; i:=i+1; end; writeln(''); writeln('A szamok rendezes utan:'); i:=1; while (i<=n) do begin writeln(a[i]); i:=i+1; end; readkey; END.