Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type tintarr=array of integer;
- function bennevan(const mi:integer; const miben:tintarr):boolean;
- var i:integer;
- begin
- result:=false;
- for i:=0 to length(miben)-1 do if mi=miben[i] then begin
- result:=true;
- break;
- end;
- end;
- function lotto(const max,db:integer):tintarr;
- var rnd:integer;
- begin
- setlength(result,0);
- randomize;
- while length(result)<db do begin
- rnd:=random(max);
- if not bennevan(rnd,result) then begin
- setlength(result,length(result)+1);
- result[length(result)-1]:=rnd;
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement