Paare finden

[idontwantaname]

wenn es wirklich nur 5 werte sind, dann kannst du es so machen (ungetestet)

Delphi-Quellcode:

const
  arr: array[0..4] of Integer = (1, 2, 3, 4, 2);
var
  x, y: Integer;
  pairs: Boolean;
begin
  pairs := False;
  for x := Low(arr) to High(arr) do
    for y := Low(arr) to High(arr) do
      if(arr[x] = arr[y]) and (x <> y) do
        pairs := True; //Hier könnte man die Werte auch noch abspeichern, usw....
end;

Ansonsten, wenn es viel mehr werte sind, kannst du die werte erstmal sortieren (Tutorial: Sortier-Algorithmen I + II) und dann die liste durchgehen und schauen, ob der nächste wert gleich dem aktuellen ist