Дан массив натуральных чисел найти количество элементов кратных данному k ! !

быол бы неплохо указывать среду прoграммирования.paskal.

program massiv; uses crt; var a: array [1..200] of integer; n, i, k, s: integer; begin; clrscr; writeln ('введите количество элементов в массиве'); readln(n); randomize; writeln ('задан массив'); for i: =1 to n do begin a[i]: =-10+random(21); write (a[i], ' '); end; writeln; writeln ('введите число'); {кратное которому необходимо найти}readln (k); for i: =1 to n do

if (a[]i]< > 0) and (a[i] mod k = 0) then s: =s+1;

write ('количество элементов кратных введенному числу - ', s);

readkeyend. 

можно попробовать создать список из чисел и сравнить введенное число с каждым его элементом.

в данном случае нужно сравнить проверить наличие числа в множестве. сделать это можно командой   if   a in x

тогда программа проверит наличие числа в этом множестве и выдаст true или false