Thanh Luân
Hỏi từ APP VIETJACK
Bài 1 Nhập N ,List A gồm từ 1 đến N
a) Tính tổng dãy A
b) Tính tổng chẵn
c) Tính lẻ
d) Đếm có bao nhiêu số chẵn, bao nhiêu số lẻ
a) Tính tổng dãy A
b) Tính tổng chẵn
c) Tính lẻ
d) Đếm có bao nhiêu số chẵn, bao nhiêu số lẻ
Quảng cáo
2 câu trả lời 319
2 năm trước
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
2 năm trước
uses crt;
var a:array[1..1000] of integer;
i,n,t1,t2,t3,dem1,dem2:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
end;
t1:=0; t2:=0; t3:=0;
dem1:=0; dem2:=0;
for i:=1 to n do
begin
t1:=t1+a[i];
if a[i] mod 2=0 then
begin
t2:=t2+a[i];
dem1:=dem1+1;
end;
if a[i] mod 2 <>0 then
begin
t3:=t3+a[i];
dem2:=dem2+1;
end;
end;
writeln('tong day a: ',t1);
writeln('tong so chan: ',t2);
writeln('tong so le: ',t3);
writeln('co ',dem1,' so chan');
writeln('co ',dem2,' so le');
readln;
end.
var a:array[1..1000] of integer;
i,n,t1,t2,t3,dem1,dem2:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
end;
t1:=0; t2:=0; t3:=0;
dem1:=0; dem2:=0;
for i:=1 to n do
begin
t1:=t1+a[i];
if a[i] mod 2=0 then
begin
t2:=t2+a[i];
dem1:=dem1+1;
end;
if a[i] mod 2 <>0 then
begin
t3:=t3+a[i];
dem2:=dem2+1;
end;
end;
writeln('tong day a: ',t1);
writeln('tong so chan: ',t2);
writeln('tong so le: ',t3);
writeln('co ',dem1,' so chan');
writeln('co ',dem2,' so le');
readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Thành viên hăng hái nhất trong tuần
-
2235 điểm
-
I miss you
2045 điểm
-
𓇼 ⋆.˚annabelle⋆.˚ 𓇼 1260 điểm
-
Judy Hopps
1100 điểm
-
bích hồng nguyễn 760 điểm
-
`color{red}text{HuyTùng`
530 điểm
-
zai đẹp siu
490 điểm
-
lọ hà nội
440 điểm
-
dũng ngon hơn ok
405 điểm
-
Haruto[pad] 395 điểm
-
chê ng tốt chốt ng tồi.
365 điểm
-
n.t.an
300 điểm
-
⋅˚₊‧ ଳ⋆.࿔*:･𝙇ệ_ဗီူ_𝙥𝙝𝙪_ဗီူ_𝙣𝙝â𝙣⋅˚₊‧ ଳ⋆.࿔*:･
245 điểm
-
minhxinhquama
190 điểm
-
✿ 𝓝𝓪̂́𝓶 🍄
180 điểm
Rút gọn
Bài viết mới nhất Lớp 11
-
3 năm trước3535
-
3 năm trước3376
Gửi báo cáo thành công!
