Eine einfache Lösung könnte so aussehen:
Delphi-Quellcode:
type
TArray8 = Array [0..8] of integer;
var
f, h, g: TArray8;
function FindMinValueOfArray(aArray: TArray8): Integer;
var
i, Value, idx: Integer;
begin
Value := High(Integer);
for i := 0 to High(aArray) do
if Value > aArray[i] then
begin
Value := aArray[i];
idx := i;
end;
Result := idx;
end;
procedure IrdendWas...
var
MinWert, ArrayIndex: Integer;
begin
//...
ArrayIndex := FindMinValueOfArray(g);
MinWert := g[ArrayIndex];
//...
end;
Wobei zu bedenken ist das doppelte Werte im Array nicht beachted werden.
// Edit: Ei verflixt, marabu war ein Tick schneller...
