Lập trình đơn giản

Nguyễn Ngọc Quỳnh Trang

Viết chương trình nhập dãy n số nguyên. In ra màn hinh các số chẵn

Thế Thôi
24 tháng 4 2022 lúc 19:48

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer;
begin
clrscr;
write('nhap vao so nguyen n :');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');  readln(a[i]);
end;
write('Cac so chan la:');
for i:=1 to n do if a[i] mod 2=0 then
write( a[i],' ');
readln;
end.

Bình luận (2)

Các câu hỏi tương tự
Hưng Quốc
Xem chi tiết
Nguyễn Ally
Xem chi tiết
Quỳnh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Quỳnh Như
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Nhân lê
Xem chi tiết
09. Trương Gia Hân
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết