Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом. Напечатать числа из массива, которые образуют растущую последователь¬ность. Например, если А={2,4,–3,4,2,–2,5}, результат: 2,4 и –3, 4 и –2, 5.- QBasic(Бейсик)

disel 
INPUT "vvedite N ", n
DIM a(n + 1)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
NEXT
PRINT "massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
    IF a(i) < a(i + 1) THEN PRINT a(i);: f = 1 ELSE IF f = 1 THEN PRINT a(i): f = 0 ELSE f = 0
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment