дан массив из 30 целых положительных чисел. Подсчитать количество элементов массива кратных 6 и не заканчивающихся на 4. Если таких элементов в массиве нет, то сообщить «Нет», ДАЮ 20 баллов

А кому тут интересен Ваш ЛИЧНЫЙ опыт из вашей школы?

Вот Вы не знаете, как в других школах, а я знаю. Поэтому и даю именно такое решение.

Если в школе изучаются "циклы" и т.п. , то зачем же Вы даете решение на Питоне - самом кривом из языков, который только можно придумать для обучения программированию? Не согласны? Почитайте материалы семинаров на сайте Константина Полякова.

Вы так классно оперируете информацией, я написал не только про свой личный опыт, но и про учебные материалы, в том числе и в учебниках полякова, кстати) так же как и вы, могу сказать, что ваше знание об учебной программе в других школах неполное хотя бы потому, что вряд ли у кого-нибудь есть информация по всем школам рф. Не "если в школе изучаются циклы", а точно они там изучаются.

Про кривость питона могу сказать, что мнения расходятся, и я, например, изучал и то, и другое в школе. сейчас слегка переходят на изучение питона в школах, хотя БЕЗУСЛОВНО "монополию" на это имеет паскаль, здесь без сомнения.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(30,-99,99); a.Println;  var k:=a.Where(t->(t mod 6=0) and (t mod 10<>4)).Count;  if k=0 then Writeln('Нет') else Writeln('Найдено элементов: ',k)end.Пример-32 -46 -99 97 63 40 -3 -89 31 -43 69 32 -66 -66 -59 98 -88 -41 -30 19 69 -83 -88 0 12 -87 -53 82 59 53Найдено элементов: 5