Массивы с процедурами и функциями. Задачи

[CeoBirthday]

Всем привет!
Помогите пожалуйста решить задачи (Паскаль)
Нужно в задачах использовать процедуры и функции.

1. Найти сумму отрицательных и положительных элементов матрицы. Найти в матрице элемент, ближайший к абсолютному (модуль) значению суммы элементов.

2. Задан одномерный массив. Вывести элемент, который встретился раньше минимального или максимального элемента.

Если не сложно, то опишите подробнее строки кода с процедурами и функциями, буду очень признателен

[newerow1989]

1 задача

const n=12;
var p:array[1..n] of integer;
    i:integer;

   procedure otr;
   var i,s:integer;
   begin
      s:=0;
      For i:=1 to n do
         If p[i]<0 then
            s:=s+p[i];
      Writeln('otr = ',s);
   end;

   procedure pol;
   var i,s:integer;
   begin
      s:=0;
      For i:=1 to n do
         If p[i]>0 then
            s:=s+p[i];
      Writeln('pol = ',s);
   end;

   procedure mo;
   var i,s,k,min:integer;
   begin
      For i:=1 to n do
         s:=s+p[i];
      k:=1;
      min:=Abs(p[1]-s);
      For i:=2 to n do
         If min>Abs(p[i]-s) then
         begin
            k:=i;
            min:=Abs(p[i]-s);
         end;
      Writeln('min abs = ',p[k]);
   end;

begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   otr;
   pol;
   mo;
   Readln;
end.

Сойдет?

[CeoBirthday]

Мне нужно это как-то оформить с функциями и процедурами.. Вот в чем вся сложность. Пока что у меня есть оформленный ввод/вывод массива через процедуры.

Вторая задача. Например, у меня есть такой вектор (одномерный массив):
1 2 3 4 10 1 2 3 7 0 6
Мне нужно вывести элемент, стоящий перед максимальным. То есть 4, перед 10, или же 7, перед минимальным 0.

[newerow1989]

2 задача

const n=12;
var p:array[1..n] of integer;
    i:integer;

   procedure min;
   var i,i1,m:integer;
   begin
      i1:=1;
      m:=p[1];
      For i:=2 to n do
         If p[i]<m then
         begin
            i1:=i;
            m:=p[i];
         end;
      If i1>1 then
         Writeln('min = ',p[i1-1]) else
         Writeln('no min');
   end;

   procedure max;
   var i,i1,m:integer;
   begin
      i1:=1;
      m:=p[1];
      For i:=2 to n do
         If p[i]>m then
         begin
            i1:=i;
            m:=p[i];
         end;
      If i1>1 then
         Writeln('max = ',p[i1-1]) else
         Writeln('no max');
   end;

begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   min;
   max;
   Readln;
end.

Сойдет?