'Задача #1
REM Организоывть массив и вывести на дисплей значение и индекс
REM предпоследнего положительного элемента
DIM A(1 TO 10) 'Массив из 10 элементов
J = 0 'Индекс предпоследнего положительного
K = 0 'Индекс последнего положительного
FOR I = 1 TO 10
PRINT «Введите элемент массива А(»; I; ")";
INPUT ":", A(I)
IF A(I) > 0 THEN
J = K
K = I
END IF
NEXT I
IF J <> 0 THEN
PRINT «Предпоследний положительный элемент =»; A(J);
PRINT «индекс =»; J
ELSE
PRINT «Найдено меньше двух положительных элементов»
END IF
'Задача #2
REM Дано три числа. Если все три отрицательные, то вычислить и
REM напечатать куб второго числа, в противном случае произведение
REM двух первых чисел.
INPUT «Первое число:», A
INPUT «Второе число:», B
INPUT «Третье число:», C
IF A < 0 AND B < 0 AND C < 0 THEN
PRINT «Куб второго числа =»; B * B * B
ELSE
PRINT «Произведение двух первых чисел =»; A * B
END IF