Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Chí Thanh

Viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=500). In ra màn hình các số chẵn trong mảng

Nguyễn Lê Phước Thịnh
24 tháng 6 2021 lúc 23:29

uses crt;

var a:array[1..500]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Huy Hoàng Phạm
Xem chi tiết
Nguyễn Chí Thanh
Xem chi tiết
lamgi hoi
Xem chi tiết
Thảo Nguyễn
Xem chi tiết
ngomanhcuong
Xem chi tiết
Ken Kaneki
Xem chi tiết
Nguyễn Quang Kiệt
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Bé Kunz
Xem chi tiết