Viết chương trình nhập 10 số nguyên từ bàn phím . Kiểm tra các số và in ra số chia hết cho 2
Chỉ mik vs mọi người ,mik kiểm tra
Chỉ mik vs mọi người ,mik kiểm tra
Quảng cáo
1 câu trả lời 409
uses crt;
var a : array[1..100] of integer;
i,n: integer;
begin
writeln( 'Nhap so nguyen n') ; Readln(n);
For i:=1 to 10 do
begin
writeln(('a[',i']='); Readln(a[i]);
end;
writeln(' nhung so chia het cho 2 la: '); Readln;
For i:=1 to 10 do
if a[i] mod 2 =0 then
writeln(a[i]);
Readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45437 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34858 -
Đã trả lời bởi chuyên gia
30670 -
Hỏi từ APP VIETJACK28265
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22444
Gửi báo cáo thành công!
