viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. dua ta màn hình các thông tin sau : a tổng số nguyên chẵn chia hết cho 2, tổng số nguyên lẻ chia hết cho 3 của dãy số b tổng giá trih của dãy số
1 câu trả lời
hịnh
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
