_ Phần đầu mk sợ giải sai nên mk viết vào Pascal _
- tiếp-
E:= 0;
G:= 0;
H:=0;
For i:= 1 to N do
begin
If (a[i] >=0) then E:= E+1;
If (a[i] <0 ) then G:= G+1;
If ((a[i] mod 3)=0) and ((a[i] mod 8)=0) then H:= H+1;
end;
Writeln (' So luong so nguyen duong trong day la:', E);
Writeln (' So luong so nguyen am trong day la:', G);
Writeln (' So luong so nguyen chia het cho 3 va 8 la:', H);
Readln;
end.
_Nếu có chỗ nào không hiểu thì nhắn tin cho mk nha_