Дано массив с n положительных и отрицательных чисел. а) найти среднее аримфметичкое отдельно для положительных, среднее - для негативных. б) найти максимальную по длинне последовательность чисел с одинаковым знаком. в) найти найменьшее число среди положительных и найбольшее среди отрицательных. г) элементы которые находятся на позициях между числами из пункта "в" упорядочить за возрастанием.

Тут решение только для а(остальное нет мотивации,лень):
 var a:array[1..10000] of longint;
 i,n,s,so,k,ko:longint;
begin
 readln(n);
 for i:=1 to n do
  read(a[i]);
 s:=0;
 so:=0;
 k:=0;
 ko:=0;
  for i:=1 to n do
   if a[i]<0
    then begin so:=so+a[i]; ko:=ko+1; end
    else begin s:=s+a[i]; k:=k+1; end;
 writeln('Average +:',s/k:0:2);
 writeln('Average -:',so/ko:0:2);
 readln
end.