Question

дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5 заранее спасибо)

Answer 1

var

 i,n,a:integer;

begin

 readln(n);

for i:=1 to n do

begin

 read(a);

if (a mod 3=0)and(a mod 5>0) then write(a,' ');

end;

writeln;

end.