2 задачи Паскаль

1. Массив номеров нулевых элементов

В целочисленной последовательности длиной 0<N<=100 предполагается наличие нулевых элементов. Создать и вывести на экран массив из номеров этих элементов.

Указания к решению: Для ввода исходной последовательности использовать одномерный массив. Определить количество введенных значений N. Сообщить об ошибке, если N выходит за границы заданного диапазона. Хранение номеров нулевых элементов исходной последовательности организовать во вспомогательном массиве. После заполнения вспомогательного массива и подсчета количества нулевых элементов M<=N вывести на экран значения N, M и номера нулевых элементов. Если M=0, вывести сообщение 'Нулевых элементов нет!’ .

2.Последовательность действительных чисел

Дана последовательность действительных чисел а1,…, аN (2<=N<=20). Выяснить, будет ли она возрастающей.

Указания к решению: Ввести исходную последовательность в одномерный массив и определить N. Если N оказывается за пределами диапазона, вывести сообщение. Считать последовательность монотонно возрастающей, если a1<a2<…<aN. Проверку монотонного возрастания выполнить в цикле FOR. Использовать досрочный выход из цикла при нарушении монотонного возрастания. В случае, если последовательность возрастающая, вывести сообщение 'ДА! Введенная последовательность – возрастающая’. В противном случае сообщить: 'НЕТ! Введенная последовательность не возрастающая!’