viết chương trình nhập dãy số có n phần tử , in ra màn hình có bao nhiêu số chẵn , bao nhiêu số lẻ, với n được nhập từ bàn phím
Quảng cáo
1 câu trả lời 363
program DemSoChanSoLe;
var
n,so,c,L,i: Integer;
begin
Write('Nhập số phần tử của dãy số: ');
Readln(n);
c:= 0;
L:= 0;
Writeln('Nhập dãy số:');
for i := 1 to n do
begin
Write('Nhập số thứ ', i, ': ');
Readln(so);
if so mod 2 = 0 then
c := c + 1
else
L := L + 1;
end;
Writeln('Số lượng số chẵn trong dãy là: ', so_chan);
Writeln('Số lượng số lẻ trong dãy là: ', so_le);
Readln;
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 VIETJACK45513
-
Hỏi từ APP VIETJACK28408
Thành viên hăng hái nhất trong tuần
-
۶ৎ
490 điểm
-
ッ¢ασɢιαнâиᵛᶰシ 80 điểm
-
★꧁☁︎જ⁀➴✞༺S͜͡øN͜͡G͜͡ ༒︎ N͜͡G͜͡ư༻✞જ⁀➴☁︎꧂★
60 điểm
-
đêm đêm đi đái đau dái vì em❤️
45 điểm
-
$\color{#FA8072}{౨ৎ𝒽ế𝓉౨ৎ𝓉𝒽ờ𝒾 ౨ৎ𝓹𝓻𝓲𝓶𝓮シ}$
45 điểm
-
Hảo Hảo
35 điểm
-
`color{Yellow }text{Sun🌞}`
30 điểm
-
Hồng Nhung Nguyễn 25 điểm
-
ngọc Hà nguyễn ngọc Hà 20 điểm
-
Khue Nguyễn 20 điểm
-
Phuong Anh Nguyen Hoang 20 điểm
-
Khanh Pham Duy 20 điểm
-
Tuấn Anh Phạm 20 điểm
-
Trà Đào 20 điểm
-
Nghi Nguyễn 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11185
-
4 năm trước10592
-
4 năm trước9253
-
4 năm trước9442
-
4 năm trước9004
Gửi báo cáo thành công!
