Х– наибольшее число, кратное 14 и являющееся произведением - вопрос №525769214 от bisingalievaga 03.08.2022 03:18

Question

Информатика: Х– наибольшее число, кратное 14 и являющееся произведением двух элементов последовательности с различными номерами. напишите эффективную, в том числе по используемой памяти, программу), находящую число x для последовательности натуральных чисел, значение каждого элемента которой не превосходит 1000. программа должна напечатать найденное число, если оно существует для заданной последовательности, или ноль в противном случае. на вход программе в первой строке подаётся количество чисел n. в каждой

bisingalievaga · Answer

//PascalABC.Net 3.1 сборка 1200begin    var a := ArrRandom(25, 1, 100);        Sort(a);    PrintLn(a);    var max14 := 0;        for var i := High(a) downto Low(a) do        for var j := High(a) downto Low(a) do             if (i j) and (a[i] * a[j] max14) and (a[i] * a[j] mod 14 = 0) then                max14 := a[i] * a[j];        PrintLn(max14);end....