uses crt; var A:array[1..1000] of integer; i,n,s:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(A[i]); if A[i] mod 2 = 0 then s:=s+A[i]; end; write('Tong cac so chan la: ',s); writeln; write('Cac so chia het cho 3 la: '); for i:=1 to n do if A[i] mod 3 = 0 then write(A[i]:4); readln end.
