Question

дан массив a(10) упорядочить элементы,массива по возрастанию.Дан массив А(6) определить количество положительных элементовДан массив А(7)найдите количество четных четных положительных элементовдан массив а(8) найдите найдите сумму нечетных положительных элементов(Составить программу на бейсике) СРОЧНО

Answer 1

По поводу первой задачи не уверен в правильности
Во всех программах подразумевается, что массив уже создан и заполнен
CLS
FOR I = 1 TO 10
  FOR J = 1 TO 10
    IF A(J)>A(J+1) THEN
      C=A(J)
      A(J)=A(J+1)
      A(J+1)=C
    END IF
  NEXT J
NEXT I


CLS
FOR I = 1 TO 6 
IF A(I)>0 THEN
K=K+1
END IF
NEXT I
PRINT K
 


CLS 
FOR I = 1 TO 7 
IF A(I)>0 AND A(I) MOD 2 =0 THEN
K=K+1
END IF
NEXT I
PRINT K



 CLS 
FOR I = 1 TO 7 
IF A(I)>0 AND A(I) MOD 2 <>0 THEN
K=K+1
END IF
NEXT I
PRINT K

Answer 2

Для упорядочивания элементов массива a(10) по возрастанию, можно использовать алгоритм сортировки пузырьком. Алгоритм заключается в том, чтобы сравнить каждую пару соседних элементов и, если они не упорядочены, поменять их местами. Этот процесс повторяется до тех пор, пока массив не будет полностью упорядочен.

Пример программы на языке Бейсик:

DIM a(10)
FOR i = 1 TO 10
    INPUT a(i)
NEXT i

FOR i = 1 TO 9
    FOR j = 1 TO 9 - i
        IF a(j) > a(j+1) THEN
            temp = a(j)
            a(j) = a(j+1)
            a(j+1) = temp
        END IF
    NEXT j
NEXT i

FOR i = 1 TO 10
    PRINT a(i)
NEXT i

Для определения количества положительных элементов в массиве А(6), можно использовать цикл, который будет проверять каждый элемент массива и увеличивать счетчик, если элемент положительный.

Пример программы на языке Бейсик:

DIM A(6)
count = 0
FOR i = 1 TO 6
    INPUT A(i)
    IF A(i) > 0 THEN
        count = count + 1
    END IF
NEXT i

PRINT "Количество положительных элементов: " + STR$(count)

Для нахождения количества четных положительных элементов в массиве А(7), также можно использовать цикл, который будет проверять каждый элемент массива и увеличивать счетчик, если элемент положительный и четный.

Пример программы на языке Бейсик:

DIM A(7)
count = 0
FOR i = 1 TO 7
    INPUT A(i)
    IF A(i) > 0 AND A(i) MOD 2 = 0 THEN
        count = count + 1
    END IF
NEXT i

PRINT "Количество четных положительных элементов: " + STR$(count)

Для нахождения суммы нечетных положительных элементов в массиве a(8), также можно использовать цикл, который будет проверять каждый элемент массива и, если элемент положительный и нечетный, добавлять его к сумме.

Пример программы на языке Бейсик:

DIM a(8)
sum = 0
FOR i = 1 TO 8
    INPUT a(i)
    IF a(i) > 0 AND a(i) MOD 2 <> 0 THEN
        sum = sum + a(i)
    END IF
NEXT i

PRINT "Сумма нечетных положительных элементов: " + STR$(sum)

Надеюсь, эти примеры помогут вам решить задачи.