Question

Напишите программу, которая в последовательности натуральных чисел находит количество чисел которые делятся на первый элемент последовательности. Вход: Программа получает на вход кол-во чисел , а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000 Выход: программа должна вывести одно число- количество чисел, которые делятся на первый элемент.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger;
  var p1:=ReadInteger;
  ReadSeqInteger(n-1).Where(t->t mod p1=0).Count.Println
end.

Пример
10
3 15 40 27 60 34 8 31 17 40
3