По поводу первой задачи не уверен в правильности
Во всех программах подразумевается, что массив уже создан и заполнен
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