// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var p:=ReadInteger('P=');
Writeln(a.Where(t->t mod p=0).Count,' элементов,кратных ',p)
end.
Пример
h= 50
55 28 15 -95 70 -68 -3 -82 -64 -62 -3 -64 -85 15 55 73 77 -94 54 12 -48 -62 28 67 80 96 28 -45 37 76 -40 24 -73 -30 -16 -97 -38 99 30 17 -1 -25 5 -42 85 -62 1 -97 -87 -30
P= 9
3 элементов,кратных 9