Thang Kieu
Cấp bậc
Sắt đoàn
Điểm
10
Cảm ơn
2
Đã hỏi
Đã trả lời
Câu trả lời của bạn: 20:03 06/04/2022
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.
