по паскалю

[ROMA2PVT]

Не за что.И не пиши в чужой теме в следующий раз.

[Corazon]

Окб не буду))

[tigr25]

Всем привет. Дорогие программисты, помогите в написании нескольких программ в Паскале:
1. Разработать программу на языке программирования Turbo Pascal:
Найти среднее арифметическое таких значений функции, которые
имеют нечетную целую част


Y = 17.1 sin(x) - 1.3x^2 + exp(1.6(x-1)) - 2


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


3.Условия: Имеется последовательность произвольных целых ненулевых
чисел, каждое в интервале от -32000 до +32000,
завершающаяся числом 0, котоpое является индикатоpом
окончания. Последовательность может содержать повторяющиеся
числа. Максимальное количество элементов неизвестно,
поэтому поместить всю последовательность в некоторый массив невозможно.

Задание: Обpабатывая вводимую последовательность чисел,
напечатать из них такие характеристики: число, сумма цифр которого больше М; число, имеющее чередование четных и нечетных цифр.
Учтите, что элементы последовательности могут быть введены только один pаз.
Характеристики каждого числа следует проверять независимо
друг от друга. Если выполняется одна из них, то следует вывести на экран:
- сообщение об этой характеристике
- значение элемента последовательности
- номер элемента последовательности
Если выполняются обе характеристики, то следует выводить указанные выше данные для каждой из них.
Если не выполняется ни одна из характеристик, то ничего выводимть на экран не следует.