Program BTH; uses crt; var a:array[1..100000] of longint; s,i,n:longint; Begin clrscr; Write('Nhap n: ');readln(n); For i:=1 to n do Begin write('a[',i,']: ');readln(a[i]); If a[i] mod 3=0 then s:=s+a[i]; end; writeln('Tong day so chia het cho 3 co trong day la: ',s); readln; end.
