Учеба и наука

• Всего ответов: 1


Антон Евгеньевич Городов
16-й в
1 отзыв
'Задача #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
июль 16, 2011 г.

Похожие вопросы