Quảng cáo
2 câu trả lời 298
3 năm trước
uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
Nhạc Remix
· 3 năm trước
uses crt; var a:array[1..100]of integer; n,i,dem:integer; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i] mod 2=0 then inc(dem); writeln('So phan tu chan la: ',dem); readln; end.
3 năm trước
uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44787
-
Hỏi từ APP VIETJACK26411
Thành viên hăng hái nhất trong tuần
-
✧Bánh Gạo✧
195 điểm
-
Yen Nhi
90 điểm
-
Astraea
90 điểm
-
.
85 điểm
-
Trịnh Kim Chi
80 điểm
-
Hanuel
60 điểm
-
an dc kh?
30 điểm
-
Nguyễn Thủy 30 điểm
-
phạm văn hiếu phạm 30 điểm
-
quynh nhu lê
25 điểm
-
duonghung duonghung 20 điểm
-
rin lê 20 điểm
-
HOÀNG ANH LÊ VĂN 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7544
-
3 năm trước7177
-
3 năm trước6175
-
3 năm trước5933
-
3 năm trước5982
Gửi báo cáo thành công!
