Gyakorló feladat rendezésre: Tömb feltöltése n darab véletlen számmal és elrendezése legkisebb alapján történő rendezéssel program Rend1; uses crt; var i,n,x,j:integer; a:array [1..100] of integer; BEGIN clrscr; i:=1; n:= ; writeln('A tomb a rendezes elott'); while (i<=n) do begin a[i]:=trunc(90*random+1); i:=i+1; writeln('A tomb ',i,'. eleme:',a[i]); end; i:=1; while (i<n) do begin j:=i+; while (j<=n) do begin if (a[j]<a[i]) then begin x:=a[j]; a[j]:=a[i]; a[i]:=x; end; j:=j+; end; i:=i+; end; writeln(''); writeln('Rendezés után'); i:=1; while (i<=n) do begin writeln('A tomb ',i,'. eleme:',a[i]); i:=i+1; end; END.