Lösungswert mit Array vergleichen, Differenz anzeigen

[dominikkv]

Delphi-Quellcode:

gefunden := False;
for I := 0 to 30 do
  if meinwert in [notenpunkte[I, 0]..notenpunkte[I, 1]] then      
    begin
      gefunden := True;
      Break;
    end;
if gefunden then
  showmessage(Format('Die Zahl %d befindet sich in meinem Array an %dter Stelle und ist %d Ziffern vom unteren und %d Ziffern vom oberen Element entfernt.', [meinwert, Succ(I), meinwert - notenpunkte[I, 0], notenpunkte[I, 1] - meinwert])) else
  showmessage(Format('Die Zahl %d kommt leider nicht in meinem Array vor!', [meinwert]));