array sortieren

[mkinzler]

Delphi-Quellcode:

For i:= 22 downto 0 Do
   For j:= 23 downto i+1 Do
      If B[i] < B[j] Then Swap( B[i], B[j] );

Dynamische Array beginnen, wie schon erwähnt mit dem Index 0:
wf:=B[0]+B[1]+B[2]+B[3]+B[4];