как вставить счетчик в масив
$A_N3 = $che4/$he0
$countf1 = INT((INT(100)/$A_N3))
LOGWRITE ("% :",$countf1)
IF(($countf1 > 35)&($countf1 < 36))
INC($A_R2,1)
STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
LOGWRITE ("ÍÀÉÄÅÍÎ 11 * = ",$A_R1[$num])
ELSE
WAITMS(50)
IF($countf1 > 36)
INC($A_R2,-1)
STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
LOGWRITE ("ÍÀÉÄÅÍÎ 1 * = ",$A_R1[$num])
LOGSHOW (1, 100,100)
END_IF
END_IF
//$P = RND(0,$A_R1[$num])
$P = ($A_R1[$num])
$counts = $P // ñêîëüêî ðàç äîëæíà ïîÿâèòüñÿ êàðòèíêà lose1
$pic1 = 0
WHILE($pic1 < $counts)
KEYPRESS(#L)
WAITMS(900)
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "lose1.bmp")
INC($pic1)
$loses = 0
WHILE(($loses = 0) & ($pic1 < $counts))
GETSCREEN
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "win1.bmp")
WAITMS(50)
ELSE
$loses = 1
WAITMS(50)
END_IF
END_CYC
ELSE
WAITMS(50)
END_IF
END_CYC