Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhung

nhap 1 mang in ra so luong phan tu chan va cac so chan trong mang.

Nhung
9 tháng 11 2018 lúc 19:39

tra loi nhanh giup minh nhe!

Umi Hana Ai
12 tháng 11 2018 lúc 10:19

program bt;

var n,i:integer;

a:array[1..100] of integer;

procedure nhap;

begin

writeln('nhap so pt');

readln(n);

writeln('nhap mang');

for i:=1 to n do read(a[i]);

end;

procedure xuli;

begin

dem:=0;

for i:=1 to n do

if a[i] mod 2= 0 then begin

writeln(a[i]);

inc(dem);

end;

begin

nhap;

xuli;

readln;

end.

Chúc bạn làm tốt!( có sai nói mik nhe)


Các câu hỏi tương tự
Nhung
Xem chi tiết
Kudo Shinichi
Xem chi tiết
Nguyễn Sáng
Xem chi tiết
Nguyễn Thị Yến Nhi
Xem chi tiết
Thanh Tâm Nguyên
Xem chi tiết
Đoàn Hoa Hồng
Xem chi tiết
Trân Lữ Huyền
Xem chi tiết
Nguyễn Sáng
Xem chi tiết