Question

Помогите пожалуйста написать на Питоне или паскале​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, 1, 1000);

 Print('Исходные данные');

 a.Println;

 var p := 0;

 var Q := new Queue<(integer, integer)>;

 for var i := 0 to n - 2 do

   for var j := i + 1 to n - 1 do

     if a[i] * a[j] mod 80 = 0 then

       if a[i] * a[j] > p then

       begin

         Q.Clear;

         Q.Enqueue((a[i], a[j]));

         p := a[i] * a[j]

       end

       else if a[i] * a[j] = p then // такая пара не одна

         Q.Enqueue((a[i], a[j]));

 Print('Результат:');

 if Q.Count > 0 then

   foreach var t in Q do

     Println(t[0], t[1])

 else

   Print('Нет пар, удовлетворяющих условию')

end.