Язык Pascal
const n=11;
var a:array[1..n] of integer;
i,k,q:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Введите число К для проверки кратности k=');
readln(k);
q:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod k=0) then q:=q+1;
write('Количество положительных, кратных ',k,'=',q)
end.
