Определить для массива x(n) суммы четных и нечетных элементов массива. вывести исходный массив и полученные значения. упорядочить массив x(n) по возрастанию. вывести полученный массив. исходный массив элементов получить с датчика случайных чисел. значения буквенных переменных задавать с клавиатуры. написать программу в qbasic и нарисовать блок-схему(необязательно)

INPUT (N)
DIM X(N)
FOR I = 1 TO N
    X(I) = INT(RND(1) * 10)
    PRINT (X(I)); " ";
NEXT I
PRINT
FOR I = 1 TO N
    IF X(I) MOD 2 = 0 THEN S2 = S2 + X(I) ELSE S1 = S1 + X(I)
NEXT I
PRINT "Сумма нечетных: "; S1
PRINT "Сумма четных: "; S2
FOR I = 1 TO N
    FOR j = 1 TO N
        IF X(I) < X(j) THEN
            p = X(I)
            X(I) = X(j)
            X(j) = p
        END IF
    NEXT j
NEXT I
PRINT "Сортировка по возрастанию:"
FOR I = 1 TO N
    PRINT (X(I)); " ";
NEXT I