MarKud_2

DIM A(1 TO 20) AS INTEGER, K AS INTEGER, TC AS INTEGER, I AS INTEGER
CLS
INPUT "K: ", K
RANDOMIZE TIMER
FOR I = 1 TO 20
    A(I) = INT(RND * 20)
NEXT I
FOR I = 1 TO 20
    PRINT A(I);
    IF I <= 18 THEN
        IF A(I) + A(I + 1) + A(I + 2) = K THEN TC = TC + 1
    END IF
NEXT I
PRINT ""
PRINT "Количество троек:"; TC