Массивы, паскаль абц

[fara1992]

Помогите решить 2 задания по паскаль абц
1) Подсчитать количество чисел, абсолютные значения которых меньше заданного Е.
2)В массиве хранится информация о росте 25 человек,определить насколько рост самого высокого превышает рост самого низкого человека..знаю, что задачи не трудные, но я вобще не умею решать их, в начале ещё как то справлялся, а сейчас вобще засада..

[Stilet]

Подсчитать количество чисел

For i:=1 to Длина массива do if abs(Массив[i])<E) then inc(a);

[DoDge_VipeR]

2)

m1:=1;
m2:=1;
for i:=2 to 25 do
begin
if a[i]>a[m1] then m1:=i;
if a[i]<a[m2]  then m2:=i;
end;
raz:=a[m1]-a[m2];