Program BTT; Uses crt; Var A: array[1..1000] 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 3 = 0 then s:=s+A[i]; End; Writeln('S = ',s); For i:=1 to n do If A[i] mod 3 = 0 then Write(A[i],' '); Readln End.
