Question

написать программу на паскале по этому описанию
даны две последовательности: С1, С2, ..., С7; Р1, Р2, ..., Р7. Если каждый элемент первой последоваткльности меньше суммы элементов второй, найти при каких згачениях i, j максимально значениевыражения Сi/(Pj+Ci^2)
ПОЖАЛУЙСТА, КТО МОЖЕТ ПОМОГИТЕ! БУДУ ОЧЕНЬ БЛАГОДАРЕН ! ЖЕЛАТЕЛЬНО КАК МОЖНО БЫСТРЕЕ

Answer 1

Если нужен ввод с клавиатуры, то вместо var C := ArrRandom... напишите var C := ReadArrInteger(n) или ReadArrReal(n)

0bfe462f05e0557c12a52f497493dc52.pas

Answer 2

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var c := ArrRandom(7, -5, 5);

 c.Println;

 var p := ArrRandom(7, -50, 50);

 p.Println;

 var s2 := p.Sum;

 if c.All(t -> t < s2) then

 begin

   var k := c.Cartesian(p, (i, j)-> (i, j, i / (j + i * i))).MaxBy(t -> t[2]);

   var i := c.IndexOf(k[0]) + 1;

   var j := p.IndexOf(k[1]) + 1;

   Println($'Максимум {k[2]:g6} при i={i}, j={j}')

 end

end.