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.
