Задана последовательность из 30 элементов. сколько пар чисел из этой последовательности в произведении число кратное 20? 25 13 6 33 9 22 39 23 23 16 12 14 29 25 14 34 25 22 25 32 10 33 22 32 25 31 35 9 20 24 желательно подробный разбор

Задачка, которая программируется в один оператор ))

begin

 Seq(25, 13, 6, 33, 9, 22, 39, 23, 23, 16, 12, 14,

     29, 25, 14, 34, 25, 22, 25, 32, 10, 33, 22, 32, 25, 31,

     35, 9, 20, 24)

   .Pairwise.Where(t -> t[0] * t[1] mod 20 = 0).Count.Println

end.

71.

var массив = [25, 13, 6, 33, 9, 22, 39, 23, 23, 16, 12, 14, 29, 25, 14, 34, 25, 22, 25, 32, 10, 33, 22, 32, 25, 31, 35, 9, 20, 24], количество = 0;

for (let сч1 = 0; сч1 < массив.length - 1; сч1++)

for (let сч2 = сч1 + 1; сч2 < массив.length; сч2++)

 if (массив[сч1] * массив[сч2] % 20 == 0)

  количество++;

alert(количество);