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

По поводу первой задачи не уверен в правильностиВо всех программах подразумевается, что массив уже создан и заполненCLSFOR 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 JNEXT ICLSFOR I = 1 TO 6 IF A(I)>0 THENK=K+1END IFNEXT IPRINT K CLS FOR I = 1 TO 7 IF A(I)>0 AND A(I) MOD 2 =0 THENK=K+1END IFNEXT IPRINT K CLS FOR I = 1 TO 7 IF A(I)>0 AND A(I) MOD 2 <>0 THENK=K+1END IFNEXT IPRINT K