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