TURBO PASCAL

Новости

Программы   

Turbo Pascal 

Игры

Документация   

Странности

FAQ

Ссылки

Форум

Гостевая книга

Рассылка

Благодарности

Об авторе

 

 

Обработка последовательностей 

Во всех заданиях данного пункта предполагается, что исходный набор содержит ненулевое число элементов (в частности, число N всегда больше нуля). 

Begin102. Даны десять чисел. Вывести их среднее арифметическое. 

Begin103. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора. 

Begin104. Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке все четные числа из данного набора n K таких чисел.

Begin105. Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел. 

Begin106. Даны целые числа K, N и набор из N целых чисел. Если в наборе присутствует число, меньшее K, то вывести True; в противном случае вывести False. 

Begin107. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество элементов в наборе. 

Begin108. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0. 

Begin109. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K. 

Begin110. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0. 

Begin111. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер последнего числа в наборе, меньшего K. Если таких чисел в наборе нет, то вывести 0. 

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

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

Begin114. Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False. 

Begin115. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность. 

Begin116. Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первыми двумя нулями (если первые нули идут подряд, то вывести 0). 

Begin117. Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между последними двумя нулями (если последние нули идут подряд, то вывести 0). 

Begin118. Даны целые числа K, N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести K-e степени чисел из данного набора: A1K, A2K, ..., ANK. 

Begin119. Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1, A22, ..., AN–1N–1, ANN. Begin120. Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1N, A2N–1, ..., AN–12, AN.

На первую страницу

Rambler's Top100 Rambler's Top100
PROext: Top 1000

(с)Все права защищены

По всем интересующим вопросам прошу писать на электронный адрес

Hosted by uCoz