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

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

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

Код к задаче: «Последовательности - VB (58456)»

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


СОХРАНИТЬ ССЫЛКУ