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