Дан одномерный массив числовых значений,насчитывающий N элементов.Определить образуют ли элементы массива,расположенные перед первым отрицательным элементом возврастающую последовательность- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS: p=0
Input "n="; n' задаём размер массива
RANDOMIZE TIMER
DIM A(n)
  
For i=1 TO n
  A(i)=RND*50-RND*30: PRINT A(i)' генерируем произвольные значения элементов массива
  IF A(1)<0 THEN PRINT "No": GOTO 1
  IF A(2)<0 THEN PRINT "No": GOTO 1
  IF i=1 THEN GOTO 2
2 NEXT
FOR i=1 TO n
IF A(i)<p AND A(i)>0 THEN PRINT "No": GOTO 1 ELSE
IF A(i)<0 THEN GOTO 3
p=A(i)
4 NEXT
  
3 PRINT "Yes"
1 END
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
RANDOMIZE TIMER
INPUT "vvedite n: ", n
DIM a(n)
FOR i = 1 TO n
    a(i) = INT(RND * 50 - 5)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
x = -1
FOR i = 1 TO n
    IF a(i) < 0 THEN EXIT FOR
    IF a(i) > x THEN x = a(i): f = f + 1 ELSE f = 0: EXIT FOR
NEXT
PRINT
IF f > 1 THEN PRINT "YES" ELSE PRINT "NO"

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

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

Leave a Comment