Перейти к содержанию

Дан целочисленный массив из 40 элементов

Дан целочисленный массив из 40 элементов. Элементы массива — целые числа в диапазоне от 0 до 10 000. Напишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число оканчивается на 12 в троичной системе счисления.

Например, для массива из 5 элементов: 9, 14, 23, 12, 18 — ответ 3. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но использовать все описанные переменные необязательно.

В качестве ответа необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например PascalABC 1.8). В этом случае вы должны использовать переменные, аналогичные переменным, используемым в алгоритме, с учётом синтаксиса и особенностей используемого вами языка программирования.


Пример фрагмента программы на языке PascalABC 1.8.

k := 0;

for i:=0 to N-2 do

if (((a[i] mod 3) = 2) and

(((a[i] div 3) mod 3) = 1))

or (((a[i + 1] mod 3) = 2) and

(((a[i + 1] div 3) mod 3) = 1)) then

begin

k:=k+1

end;

end;

writeln(k);