Bài 5:
program bai_giai;
uses crt;
var A:array[1..1000] of integer;
n,i,ta,tc,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
ta:=0; tc:=0; t:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if A[i]<0 then ta:=ta+A[i];
if A[i] mod 2=0 then tc:=tc+A[i];
if (A[i]>0) and (A[i] mod 3=0) then t:=t+A[i];
end;
writeln('a. Tong cac so am trong day la: ',ta);
writeln('b. Tong cac so chia het cho 2 la: ',tc);
writeln('c. Tong cac so duong va chia het cho 3 la: ',t);
readln;
end.
HD:
b) Để một số chia hết cho 2 thì phải có điều kiện số đó mod 2=0 (số dư của phép chia số đó cho 2 bằng 1)
c) Khi có 2 điều kiện thì phải có hàm and để kết nối chúng lại với nhau.
