Giúp e với e đang cần gấp!!
Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của 3 và 9.
Program FNG; Uses crt; Var A: array[1..100] of longint; n,i,s: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); If A[i] mod 9 = 0 then s:=s+A[i]; End;