Du brauchst zwei Variablen: minimum und min_Index.
Delphi-Quellcode:
var
minimum, min_index : integer;
begin
minimum := noten[0];
min_Index := 0;
for i := 1 to 15 do
begin
if minimum > noten[i] then
begin
minimum := noten[i];
min_index := i;
end;
end;
Du kannst übrigens auch zusätzlich das Maximum in dieser Schleife ermitteln.
PS: HA ! Erwischt. Sir Thornberry hat einem Fehler gemacht
