Lập thuật toán giải bài toán: Cho dãy a1,-,aN đếm xem trong dãy có bao nhiêu số chia hết cho 7

Input: n; dãy a1,…,an
Output: số số chia hết cho 7

Thuật toán:

B1: Nhập vào n và dãy a1…an
B2: dch ← 0
B3: i ← 1 to n 
a[i] mod 7 = 0 thì inc(dch)
B4: In ra màn hình, kết thúc thuật toán

*CT:

Uses crt;
Var a:array[1..100000] of longint;
      i, n, dch: integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
     write(‘a[‘,i,’]=’);
     readln(a[i]);
end;
dch:=0;
For i:=1 to n do if a[i] mod 7 = 0 then inc(dch);
Write(‘Co ‘,dch,’ so chia het cho 7′); 
Readln
end.