Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#4

Re: Die höchsten Array-Werte anzeigen

  Alt 6. Nov 2005, 19:43
Delphi-Quellcode:
for i:=1 to 10 do
  begin
  p[i]:=1; //Init aufs erste
  for j:=2 to 200 do //wenn das g[p[i]] kleiner als g[j] dann neu setzen
    if g[p[i]]<g[j] then p[i]:=j;
  g[p[i]]:=0; //aus wertung raus
  end;
so ganz spontan...

wenn g unberührt bleiben soll musstes vorher nochmal kopieren...
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat