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

Автор ответа:
0
// 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.
Приложения:

Похожие вопросы
Предмет: География,
автор: abuzurmanbekova
Предмет: Русский язык,
автор: anna49742
Предмет: Русский язык,
автор: sorokaliza20071101
Предмет: Математика,
автор: worldoftanks16
Предмет: Алгебра,
автор: кара41