các bn giúp mik tin với NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍMa) tính tổng các số am trong dãy b) tính tổng các số chia hết cho 2 trong dãyc) tính tổng các số dương và chia hết cho 3 trong dãyHD: dựa vào chương trình bài 2 b) nêu điều kiện để 1 số chia hết cho 2c) khi có 2 điều kiện em cần dùng thêm hàm nào?MONG CÁC BN TRẢ LỜI SỚM GIÚP...
Đọc tiếp
các bn giúp mik tin với
NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍM
a) tính tổng các số am trong dãy
b) tính tổng các số chia hết cho 2 trong dãy
c) tính tổng các số dương và chia hết cho 3 trong dãy
HD: dựa vào chương trình bài 2
b) nêu điều kiện để 1 số chia hết cho 2
c) khi có 2 điều kiện em cần dùng thêm hàm nào?
MONG CÁC BN TRẢ LỜI SỚM GIÚP MIK
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
for i:=1 to n do
if a[i]<0 then t1:=t1+a[i];
writeln('Tong cac so am la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chia het cho 2 la: ',t2);
t3:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];
writeln('Tong cac so duong chia het cho 3 la: ',t3);
readln;
end.