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

2014-03-14T14:47:26+04:00
Пишу на QBasic
Массив уже создан и заполнен
FOR I = 1 TO 10
IF A(I)>0 THEN
L=L+A(I)
END IF
NEXT I
PRINT L



FOR I = 2 TO 10
IF A(I)>A(I-1) THEN
PRINT I
END IF
NEXT I


FOR I = 2 TO 9
IF (A(I)<0 AND A(I-1)<0) OR (A(I)<0 AND A(I+1)<0) OR (A(I)>0 AND A(I-1)>0) OR (A(I)>0 AND A(I+1)>0) THEN
PRINT "Да"
END
END IF
NEXT I

Последнее слишком муторно писать

А если через паскаль?
Сорри паскаль знаю плохо