zwei random zahlen maximal 50?

[BungeeBug]

Hi,

versuch mal sowas wie

Delphi-Quellcode:

function myran(max : integer):integer;
 var
  i, j : integer;
 begin
  Result := 0;
  i := 0;
  j := 0;
 repeat
  randomize;
  i := Random(max);
  j := Random(max);
 Result := i + j;
 until (result < 50);
end;

Ist warscheinlich nicht ganz elegant aber ist ne Möglichkeit