Question

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

Answer 1

// 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.

Answer 2

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