var
f: array [1..20] of integer;
sumdo, sumposle, pos,i, min:integer;
begin
min:=0;
for i:=1 to 20 do begin
if f[i]>min
then begin min:=f[i];
pos:=i;
end;
//Вычсляем минимальный элемен массива и его позицию в массиве

for i:=1 to pos-1 do begin;
if f[i]>=0
Then sumdo:=sumdo+f[i]
end;
//Считаем положительные до минимального элемента

for i:=pos+1 to 20
do begin
if f[i]<0
Then inc(sumposle);
end;
//Считаем отрицательные после минимального элемента
-
Как-то так. Писал прям в ответе, не проверял, но думаю смысл ясен.