1. Đếm số chia hết cho 5 và không chia hết cho 7 của dãy n số nguyên. 2. Đếm số bằng 0 trong dãy gồm n số nguyên. (Dùng kiểu mảng)

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.

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,d,d0: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        d0:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If (A[i] mod 5 = 0) and (A[i] mod 7 <> 0) then inc(d);
                If A[i]=0 then inc(d0);
        End;
        Writeln('Bai 1: ',d);
        Write('Bai 2: ',d0);
        Readln
End.