Question

se considera numarul natural m si tabloul a[1...n] de numere naturale n<=100. scrieti un program care numara cite elemente din tablou sunt divizibile cu m. In pascal varog cu array.

Answer 1

Program P1;

const nmax = 100;

type Vector : array[1..nmax] of integer;

var x : Vector;

     i, n, m, div : integer;

begin

   write('n = ');

   readln(n);

   write('m = ');

   readln(m);

   div := 0;

   for i := 1 to n do

   begin

       write('x[', i, '] = ');

       readln(x[i]);

       if (div mod m = 0) then inc(div);

   end;

   writeln('Sunt ', div, ' elemente divizibile cu ', m);

end.