Способ (с помощью оператора цикла WHILE.WEND)

CLS

INPUT "введи размер массива "; n

DIM A(n)

INPUT "введи интервал (a,b) "; a, b

PRINT "введи массив"

'Цикл по элементам массива

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

'Присваивание начального значения счетчика цикла

i = 1

'Присваивание начального значения счетчика вхождения

K = 0

'Поиск третьего элемента, принадлежащего (a,b)

WHILE K < 3 OR i < = n

IF A(i) >= a AND A(i) <= b THEN L = i: K = K + 1

i = i + 1

WEND

IF K < 3 THEN

PRINT " третьего элемента, принадлежащего (а,b) нет "

ELSE

PRINT "номер третьего элемента, принадлежащего (а,b)="; L

PRINT "его значение ="; A(L)

END IF

END

пример 10

Дан массив чисел. Заменить второй максимальный элемент на 1.

программа

CLS

INPUT "введи размер массива "; n

DIM A(n)

PRINT "введи массив"

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

'Определение начального значения максимума

MAX = A(1)

'Нахождение наибольшего значения

FOR I = 2 TO n

IF A(i) > MAX THEN MAX = A(i)

NEXT i

'Определение второго по порядку максимального значения и замена его на 1

FOR i = 1 TO n

IF A(i) = MAX THEN L = i: K = K + 1

IF K = 2 THEN A(L) = 1: EXIT FOR

NEXT i

FOR i = 1 TO n

'Вывод массива на печать

PRINT A(i);

NEXT i

END

Дата добавления: 2015-07-11