Question

Решите программу в паскаль

Answer 1

На самом деле нет нужды рассматривать условие поиска максимума только среди положительных значений элементов массива, отрицательные значения заведомо не могут быть максимумами.

// 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