Ko còn nhớ pascal ntn nữa rồi ^^
Tạo 1 mảng M các phần tử = 0 hết
Làm 1 vòng lặp
Random từ 1 đến 52
So sánh số random được nếu ko trùng số nào trong mảng M thì lưu luôn nó vào mảng M.
Khi nào mảng M(max)#0 thì thoát vòng lặp
Hơi lan man bạn cố hiểu nhé
Code autoit bạn tham khảo nhé
;khai báo mảng
Global $mang[53]
;gán các phần tử = 0
For $i=1 to 52
$mang[$i]=0
Next
;tạo vòng lặp chỉ kết thúc khi phần tử thứ 52 được gán
While ($mang[52]==0)
;tạo số random
$rd=Random(1,52,1)
$exist=False
;kiểm tra xem số random đã tồn tại trong mảng chưa
For $i=1 to 52
If $mang[$i]==$rd Then
$exist=true
ExitLoop
EndIf
Next
;nếu chưa tồn tại thì thêm nó vào mảng
If Not $exist Then
For $i=1 To 52
If $mang[$i]==0 Then
$mang[$i]=$rd
ExitLoop ;thoát vòng lặp For
EndIf
Next
WEnd
;in mảng đã hoàn thành ra
For $i=1 To 52
ConsoleWrite($mang[$i]&";")
Next