Quảng cáo
1 câu trả lời 194
program csc;
uses crt;
var a:array[1..100] of integer;
i,d,n:integer;
begin
clrscr;
write('nhap so phan tu cua day ');
readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0
then
d:=d+1;
writeln('so so chan la ',d,' so so le la ',n-d);
readkey;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45490
-
Hỏi từ APP VIETJACK28376
Thành viên hăng hái nhất trong tuần
-
bright star
745 điểm
-
uk
440 điểm
-
Sakura Mochi
395 điểm
-
`color{lightpink}text{lov.h}`
335 điểm
-
$\Huge\color{yellow}{STALIN}$
285 điểm
-
Hoàng 280 điểm
-
`color{ pink}text{trượt nv2 huhuu}`
265 điểm
-
kq nguyn~
210 điểm
-
$\color{#FA8072}{𝖙𝖍è𝖒౨ৎ𝖙𝖍ị𝖙౨ৎ𝖙𝖚ấ𝖙ᴾᴿᴼシ}$
200 điểm
-
Lê Quyết 165 điểm
-
lê đức thiên phước
125 điểm
-
★꧁☁︎જ⁀➴✞༺S͜͡øN͜͡G͜͡ ༒︎ N͜͡G͜͡ư༻✞જ⁀➴☁︎꧂★
100 điểm
-
💞Munly💞
95 điểm
-
doacghcmai214
85 điểm
-
Calculus1013
70 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước10859
-
4 năm trước10264
-
4 năm trước8930
-
4 năm trước9115
-
4 năm trước8668
Gửi báo cáo thành công!
