Программы в паскале

[goodspeed!]

1)Дан одномерный массив X на место отрицательных элементов массива записать среднее арифметическое максимального и минимального элементов. Результат вывести на экран.
2)элементы равнобедренного прямоугольного треугольника пронумерованы:
1-катет(а), 2-гипотенуза(с), 3-высота, опущенная на гипотенузу (h), 4-площадь. Дан номер одного из этих элементов и его значение. Вывести значения элементов данного треугольника (в том же порядке).
3)занести в одномерный массив цепь чисел с клавиатуры. Определить в массиве сумму чётных чисел.


Сколько не бьюсь над этими задачками всё не получается если не сложно порошу написать решение.Заранее благодарен.

[Mad_Cat]

1)

max:=x[1];min:=x[1];
for i:=2 to n do 
begin
if x[i]>max then max:=x[i];
if x[i]<min then min:=x[i];
end;
for i:=1 to 2 do
if x[i]<0 then x[i]:=min/2+max/2;

3)

s:=0;
for i:=1 to n do
begin
readln(a[i]);
if not odd(a[i]) then s:=s+a[i];
end;

[goodspeed!]

Mad_Cat,спс..