Помогите пожалуйста решить те задачи, которые не обведены кружочком

1

Ответы и объяснения

2014-03-16T21:28:48+04:00
Пишу на QBasic
Массив уже задан и заполнен
1
FOR I = 1 TO 15
IF A(I)= 0 THEN
A(I)=1
END IF
NEXT I



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

4
INPUT N
DIM A(N)
IF A(1)=0 THEN
  FOR I= 1 TO N STEP 2
   IF A(1)=0 AND A(I+1)=1 THEN
    K=K+1
   END IF
  NEXT I
END IF
IF A(1)=1 THEN
  FOR I= 1 TO N STEP 2
   IF A(1)=1 AND A(I+1)=0 THEN
    J=J+1
   END IF 
  NEXT I
END IF
L=N\2
IF J=L OR K=L THEN
PRINT "Да"
ELSE
PRINT "Нет"
END IF


Спасибо ^^
а мне всегда казалось, что он какой-то странный
лучше, чем у многих, в том числе и чем у меня))
извиняюсь, нашел ошибку в первом решении
Да ничего страшного, я подправила у себя