{* Задача318 *}

REM basic

' Дан массив С(К). Переписать четные элементы в массив Е, а нечетные в массив В. Нулевые элементы отбросить. В какой последовательности элементов оказалось больше?


CLS
RANDOMIZE TIMER
INPUT K
Dim C(K), E(K), B(K)
For I = 1 To K
        C(I) = INT(RND * 100)
        PRINT C(I)
Next I
For I = 1 To K
        If C(I)  0 Then
        If C(I) Mod 2 = 0 Then
                CHET = CHET + 1
                E(CHET) = C(I)
        Else
                NECHET = NECHET + 1
                B(NECHET) = C(I)
        End If
        End If
 
Next I
If CHET  NECHET Then
        If CHET > NECHET Then PRINT "CHETNIH BOLSHE"
        If CHET < NECHET Then PRINT "NECHETNIH BOLSHE"
Else
        PRINT "CHETNIH I NECHETNIH ODINAKOVOE KOL-VO"
End If
End