На самом деле нет нужды рассматривать условие поиска максимума только среди положительных значений элементов массива, отрицательные значения заведомо не могут быть максимумами.
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrGen(50,i->sin(i)+exp(sin(i))*cos(i));
var i:=b.IndexMax;
Writeln('b[',i,']=',b[i]);
end.
Результат
b[26]=2.14939426974613