Werte vergleichen

[Fuerchau]

Nun denn:
D DS
D Feldgruppen x(8) dim(10) ascend
d xF2 5 0 dim(10) overlay(feldgruppen:1)
d xF2I 3 0 dim(10) overlay(feldgruppen:*next)

for x=1 to 10
xF2(x)=f2(x)
xF2I(x)=x
endfor;
sorta Feldgruppen;

=> xF2i(1) steht der Index aus F2 des kleinsten Wertes

[Pikachu]

Kleinster = 1
Mit Index von 2 bis 10:
Falls F2(Index) < F2(Kleinster): Kleinster = Index

Weiter mit F1(Kleinster)