Răspuns:
#include <iostream>
using namespace std;
int main()
{
int i,n,m,k=0,A[101];
cin>>n>>m;
for(i=1;i<=n;i++)
cin>>A[i];
for(i=1;i<=n;i++)
{
if(A[i]%m==0)
k++;
}
if(k==0)
cout<<"nu exista numere divizibile cu m";
else
cout<<k;
}
Explicație:
Nu stiu limbajul pascal,dar sper sa iti fie de ajutor