var a:array[1..50] of integer; s,i,n:integer; begin s:=0; write('Nhap phan tu mang'); readln(n); if N<=500 then for i:=1 to n do begin write('A[',i,']='); readln(A[i]); end; for i:=1 to n do s:=s+a[i]; if (s mod 3=0) and (s mod 3=0) then write('Mang chia het cho 3 va 5') else write('Mang khong chia het cho 3 va 5'); readln end.
