Cho dãy số nguyên có tối đa 100 phần tử . Hãy
a) Khai báo biến mảng của dãy số đó.
b) In ra các phần tử có giá trị chẵn trong dãy.
Quảng cáo
2 câu trả lời 482
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
4157
-
꧁༒ɳɡʉɤễɳ•Qʉλɳɡ•ɧσà•Ƙ12vɴシ༒꧂
380 điểm
-
Đan vy
340 điểm
-
Tình đầu của Ikuto Tsukiyomi
205 điểm
-
민덕
140 điểm
-
![ebedz[nk]](/upload/images/user/1759732656-43f7eefe75d8d3a236dacb312186dc7ejpg.jpg)
ebedz[nk]
105 điểm
-
kẹo bông gòn
80 điểm
-
꧁༒ρɧáʈ༒꧂
50 điểm
-
🅱ù🅸.🅶🅸🅰.🅻🅾🅽🅶
45 điểm
-
Nguyễn Đình Đức><ヾ(•ω•`)oヾ(≧▽≦*)o
40 điểm
-
ST_SP
20 điểm
-
Zinnn. 20 điểm
-
Chơ Minh Giàng 20 điểm
-
MinhAnh Tran 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7832
-
3 năm trước7456
-
3 năm trước6380
-
3 năm trước6145
-
3 năm trước6131
