Дан массив состоящий из 20 чисел. Найти количество положительных чисел​

Ответ:

Язык 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.