Дано массив с 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); readlnend.