Дан одномерный массив b(n) .известно что элементы массива принадлежат промежутку [-20; 20] написать программу вычисляющую количество неположительных элементов кратных 3 input. output 2 n=6 -1 -8 -9 12 4 -3 25

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=ReadArrInteger(ReadInteger('N='));
  b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.

Решение на Python 3.Третья строчка для НАГЛЯДНОСТИ(ее можно убрать