Помогите пжлста с программированием! Опции

[EvilSith]

всем здрасьти!=)))))
помогите кто может. через два дня зачет, нужно сделать лабы, а я че то не въезжаю!
вот задания, подскажите пожалуйста.

№1. Для решения каких из следующих задач нужны массивы, а
в каких можно обойтись и без них ?
1.2.1. Дано 50 чисел. Найти их среднее арифметическое.
1.2.2. Дано 50 чисел. Определить, сколько среди них отлич-
ных от последнего числа.
1.2.3. Дано 100 чисел. Напечатать сначала все отрицатель-
ные из них, а затем все остальные.
1.2.4. Дано число А. Определить первый отрицательный член
последовательности х(1),х(2),х(3),...,где х(1) =А,
х(n) =tg(x(n-1)).

№2. TYPE ТОЧКА=ARRAY[(X,Y)] OF REAL;
VAR M:ARRAY[1..40] OF ТОЧКА; D:REAL;
Рассматривая элементы массива M как координаты
точек на плоскости, найти D - наибольшее расстоя-
ние между этими точками.

№3. Даны действительные числа s, t, a[0..12]. Получить
p(1)-p(t)+(p(s-t))^2-(p(1))^3, где
p(x)=a[12]*x^12+a[11]*x^11+...+ a[0].

№4. Const n=100;
Var x:Array[l..n] of Real;
Преобразовать массив X по следующему правилу (Хk -значение k-го элемента массива после преобразования):
а) xk=max(xi) при l≤i≤k;
б) элементы массива расположить в обратном порядке;
в) x1=x1, xn= xn, xk=((xk-1)+xk+(xk+1))/3
при к=2,3,...,n-1;

Спасибо заранее!! =)