Question

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

Answer 1

tra loi nhanh giup minh nhe!

Answer 2

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)