По программированию Д. Златопольский

76
1400 задач по программированию
б) Найти два элемента последовательности (их порядковые но-
мера и значение) в интервале, между которыми находится 
значение n.
Примечание
В обеих задачах условный оператор не использовать.
7.126.
Дана последовательность вещественных чисел a
1
, a
2
, …, 
a
15
. Определить, есть ли в последовательности отрицательные 
числа. В случае положительного ответа определить порядковый 
номер первого из них.
7.127.
Дана непустая последовательность целых чисел, окан-
чивающаяся числом 100. Определить, есть ли в последовательно-
сти число 666. Если имеется несколько таких чисел, то определить 
порядковый номер первого из них.
7.128.
Дана последовательность натуральных чисел b
1
, b
2
, …, 
b
12
. Определить, есть ли в последовательности хотя бы одно чис-
ло, оканчивающееся цифрой 7. В случае положительного ответа 
определить порядковый номер первого из них.
7.129.
Дана непустая последовательность целых чисел, окан-
чивающаяся числом –1. Определить, есть ли в последовательно-
сти хотя бы одно число, кратное семи. В случае положительного 
ответа определить порядковый номер первого из них.
7.130.
Даны 20 чисел, образующих неубывающую последова-
тельность. Одно из чисел повторяется. Определить количество 
повторений чисел.
7.131.
Даны 20 чисел, образующих неубывающую последова-
тельность. Несколько чисел, идущих подряд, равны между собой. 
Найти количество таких чисел.
7.132.
Даны 30 чисел, образующих неубывающую последова-
тельность. Найти количество различных чисел в последователь-
ности.
7.133.
Дана непустая последовательность вещественных чисел, 
оканчивающаяся числом 1000. Последовательность является не-
убывающей. Несколько чисел, идущих подряд, равны между со-
бой. Найти количество таких чисел.
7.134.
Дана непустая последовательность вещественных чисел, 
оканчивающаяся нулем. Последовательность является невозраста-
ющей. Найти количество различных чисел в последователь ности.
7.135.
Даны натуральное число n и вещественные числа x
1
, x
2
, 
…, x
15
. Найти:
1 / 19

---