Trinh's Công's Tử's
Hỏi từ APP VIETJACK
Viết chương trình vào một dãy gồm n các số nguyên . Sau đó tính tổng các phần tử chẵn có trong dãy và thông báo kết quả tổng ra màn hình
Quảng cáo
1 câu trả lời 365
uses Crt;
var N,i,S:Integer;
A:array[1..100] of Integer;
Begin
Clrscr;
Write('Ban can nhap so phan tu la : ');
readln(N);
For i:=1 to N do
Begin
Write('Nhap A[',i,']=');
Readln(A[i]);
End;
Writeln;
For i:=1 to N do
If A[i] mod 2=0 then
S:=S+A[i];
Writeln('Tong cac phan tu chan trong mang la ',S,'.');
Readln
End.
var N,i,S:Integer;
A:array[1..100] of Integer;
Begin
Clrscr;
Write('Ban can nhap so phan tu la : ');
readln(N);
For i:=1 to N do
Begin
Write('Nhap A[',i,']=');
Readln(A[i]);
End;
Writeln;
For i:=1 to N do
If A[i] mod 2=0 then
S:=S+A[i];
Writeln('Tong cac phan tu chan trong mang la ',S,'.');
Readln
End.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
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 8
-
3 năm trước8199
-
3 năm trước7715
-
3 năm trước6553
-
3 năm trước6447
-
3 năm trước6270
Gửi báo cáo thành công!
