массивы

[DeadWind]

помогите пожалуйста решить)
1) дан массив A и N вещественных чисел чисел. Из элементов массива A, не попадающий в отрезок [0,100], составить массив М и вывести его.(Если задаче требуется сформулировать новый массив,то в программе необходимо вывести его и количество элементов в нем)
2)дан массив A. напечатать сумму отрицательных элементов массива А после первого нулевого элемента.
для второй задачи как бы составил,но что то не работает
(program pr3;
const n=10;
type Mas=Array [1..n] of integer;
procedure P(var A:Mas);
var i:byte;
begin
for i:=1 to n do
begin
write('A[',i,']=');
readln (A[i]);
end;
end;
procedure Sum(var A:Mas);
var
i,x,s:integer;
begin
s:=0;
for i:=1 to n do
if A[i]=0 then if A[i]<0 then s:=s+A[i];
writeln ('сумма отрицательных чисел начиная от числа ноль=',s);
end;
var
x:Mas;
begin
P(x);
Sum(x);
end.)
3)Для массива А из n элементов. Требуется найти b,равное среднему арифметическому элементов массива А и наибольшее отклонение от среднего,т.е. max(|a(1)-b|,|a(2)-b|,...|a(n)-b|).

[weech]

Во второй задаче у вас неверно задано условие: сначала вы проверяете, является ли очередной элемент массива нулем, а затем, проверяете, меньше ли, тот же самый элемент, нуля. Вот подправленный вариант:

program pr3;
        const n=10;
type Mas=Array [1..n] of integer;
     procedure P(var A:Mas);
     var i:byte;
         begin
              for i:=1 to n do
               begin
               write('A[',i,']=');
               readln (A[i]);
               end;
         end;
     procedure Sum(var A:Mas);
     var i,x,s:integer;
         begin
         s:=0;
              for i:=1 to n do
                  if A[i]=0 then x:=i;
              for i:=x to n do
                  if a[i]<0 then s:=s+a[i];
         writeln ('Cóììà îòðèöàòåëüíûõ ÷èñåë, íà÷èíàÿ îò ÷èñëà íîëü ðàâíà ',s);
         end;
var
x:Mas;
begin
P(x);
Sum(x);
end.

[DeadWind]

спасибо