Напишите программу, которая в последовательности натуральных чисел находит количество чисел которые делятся на первый элемент последовательности. вход: программа получает на вход кол-во чисел , а затем сами числа. кол-во чисел не превышает 1000, а сами числа не превышают 30000 выход: программа должна вывести одно число- количество чисел, которые делятся на первый элемент.
Внимание! Если программа не работает, обновите версию!
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