Ich habe die Frage so verstanden:
1.) Es liegt eine Folge von Zufallszahlen vor, die mit Delphi-Random generiert wurden
2.) Welcher Wert wurde dazu RandSeed zugewiesen.
Code:
RandSeed=123
1: 5
2: 1
3: 5
4: 5
5: 2
-------------
RandSeed=627
1: 4
2: 2
3: 1
4: 2
5: 2
-------------
RandSeed=123
1: 5
2: 1
3: 5
4: 5
5: 2
-------------
RandSeed=627
1: 4
2: 2
3: 1
4: 2
5: 2
-------------
In diesem Beispiel müsste also ermittelt werden, dass zu der Folge {5,1,5,5,2} RandSeed=123 gehört.
Und zu {4,2,1,2,2} gehört RandSeed=627.
Vielleicht brauchte man mehr als 5 Zahlen, um das zu ermitteln.
Ich habe auch nicht getestet, ob bei C++ das gleiche Ergebnis herauskommt.
Das ist die Aufgabe, die der TE lösen möchte.
Hier das kleine Testprogramm
Code:
program Zufall;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
Eingabe : String;
Procedure Zahlen(pSeed, pAnzahl : Integer);
Var
i : Integer;
Begin
RandSeed := pSeed;
Writeln('RandSeed=',pSeed);
for i := 1 to pAnzahl do
Begin
Writeln(i,': ',Random(pAnzahl)+1);
End;
Writeln('-------------');
End;
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
Zahlen(123,5);
Zahlen(627,5);
Zahlen(123,5);
Zahlen(627,5);
Readln(Eingabe);
end.