Предмет: Информатика, автор: juulie24

Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от −100 до 100 включительно. Напишите программу, позволяющую найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 13.
питон

Аноним: пары - обычно два соседних элемента, k и k+1

juulie24: да, два соседних

Аноним: Питон. Хех... в PascalABC.NET это практически один оператор. Интересно, как в Питоне будет?

Аноним: begin
ArrRandom(10, -100, 100).Println.Pairwise.Where(t->(t[0] mod 13=0) or (t[1] mod 13=0)).Println.Count.Println
end.

Аноним: -21 69 53 -8 74 -43 98 28 26 77
(28,26) (26,77)
2

juulie24: нужен именно питон

Аноним: Я понимаю, я же не даю ответ в поле ответа))))

Аноним: Мне просто интересно сравнить код)

Аноним: Не раз сталкивался с тенденцией, когда Питон пытаются объявить лучшим языком для обучения программированию, поэтому поглядываю, как народ с ним мучится.

Аноним: А решение - заодно пример, чтобы видно было, как пары отбираются