[Rokuell]

22.29

Код:

type TArr = array [1..10] of integer;

function FindNum(var arr:TArr; ismin:boolean):integer;
var i:integer;
begin
 if ismin then
  begin
   Result := MAXINT;
   for i:=1 to 10 do
   if (arr[i] > 0) and (arr[i] < Result) then
     Result := arr[i];
   if Result = MAXINT then Result := 0;
  end
 else
  begin
   Result := 0;
   for i:=1 to 10 do
   if arr[i] < Result then Result := arr[i];
  end;
end;

Массив заполнить , думаю, сможешь
arr - передаешь массив
ismin - передаешь true , если надо искать минимальный положительный элемент и false , если надо искать максимальный отрицательный.