Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 1000. Допишите на алгоритмическом языке программу, которая находит и выводит количество элементов массива, которые заканчиваются на 7 и не делятся на 3. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них. нач
целтаб a[1:30]
цел i, j, k
нц для i от 1 до 30
ввод a[i]
кц
...
кон
ответ: (напишу на Паскале, сами транслируйте)
k := 0;
for i := 1 to 30 do
if (a[i] mod 3) <> 0 then begin
j := 10;
while a[i] div j > 0 do
j := j * 10;
if a[i] mod j = 7 then
k := k + 1;
end;
writeln(k);