"pro" csoport! Ha nem értenétek, itt van a minimum és maximum kiválasztás elve nevű dolgozattémából a minimum és a maximum kiválasztása, illetve a cserék! VAGY TÖLTÉSTEK LE ITT!

 ...
    min:=a[1]

for i:=2 to n do

if a[i]<min then min:=a[i]; j:=i

for i:=2 to n do

if a[i]>max then max:=a[i] k:=i

CSERE:

minimum: s:=a[1]; a[1]:=a[j]; a[j]:=s;

maximum: s:=a[n]; a[n]:=a[k]; a[k]:=s;

KIIARTÁS(!)

for i:=1 to n do

 write(a[i],', ');

                      ....