Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
#include <Array.au3>
Dim $aArray[5][5]
For $i = 0 To 7
$aArray[Random(0,4,1)][Random(0,4,1)] = 1 ;заполняем еденицами
Next
For $i = 0 To 4
For $j = 0 To 4
If Not $aArray[$i][$j] = 1 Then $aArray[$i][$j] = 0 ;заполняем остатки нулями
Next
Next
_ArrayDisplay($aArray)
Дело в том что примерно так я и делаю но нужно чтобы было именно 8 значений.
Код:
#include <IE.au3>
#include <Array.au3>
Dim $Arr1[5][5]
$k=8
For $i=0 to 4
For $j=0 to 4
If $k>0 Then
If Random(0,1,1) Then
$Arr1[$i][$j]=1
$k-=1
Else
$Arr1[$i][$j]=0
EndIf
EndIf
Next
Next
_ArrayDisplay($Arr1)
Но он исчерпывает к и заполняет массив не до конца.
Есть еще мысль выбирать 8 ячеек из 25, но опять же понимаю как это сделать.
#include <Array.au3>
Dim $aArray[5][5]
For $i = 0 To 7
$k = Random(0,4,1)
$j = Random(0,4,1)
While 1
If Not $aArray[$k][$j] = 1 Then
$aArray[$k][$j] = 1
ExitLoop
Else
$k = Random(0,4,1)
$j = Random(0,4,1)
EndIf
WEnd
Next
For $i = 0 To 4
For $j = 0 To 4
If Not $aArray[$i][$j] = 1 Then $aArray[$i][$j] = 0 ;заполняем остатки нулями
Next
Next
_ArrayDisplay($aArray)