1.
var n,i,d:longint;
a: array [1..100] of longint;
write('Nhap n: '); readln(n);
for i:=1 to n do
write('A[',i,'] = '); read(a[i]);
for i:=1 to n if a[i] mod 5=0 then
if not a[i] mod 7 = 0 then inc(d);
writeln;
write('So luong: ',d);
readln;
end.
2.
var n,i,d:longint;
a: array [1..100] of longint;
write('Nhap n: '); readln(n);
for i:=1 to n do
write('A[',i,'] = '); read(a[i]);
for i:=1 to n if a[i] = 0 then inc(d);
writeln;
write('So luong: ',d);
readln;
end.