|
(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Seltenste Zahl ausgeben (Felder)
31. Mär 2008, 16:17
Delphi-Quellcode:
begin
seltenste:=noten[0];
for i:=1 to 15 do
if noten[i]<seltenste then
seltenste:=i;
result:=seltenste;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|