Последовательности - VB (58456)

Формулировка задачи:

Дано целое число N (> 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество K таких элементов.

Решение задачи: «Последовательности»

textual
                            Листинг программы 
                        

                            CLS
RANDOMIZE TIMER
n = 10
REDIM x(n) AS INTEGER
 
FOR i = 1 TO n
   x(i) = 40 * RND - 20
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n - 1
   IF x(i) < x(i + 1) THEN
      PRINT x(i);
      k = k + 1
   END IF
NEXT
PRINT : PRINT
 
PRINT "K ="; k
                        

Оцени полезность:

12 голосов , оценка 4.167 из 5

Похожие ответы