Question

дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5

Answer 1

VAR
   i, el, kol, n: Integer;
BEGIN
   Read(n);
   
   kol := 0;
   for i := 1 to n do begin   
      Read(el);
      if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
   end;
   
   Write(kol);
END.