K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

9 tháng 11 2018

tra loi nhanh giup minh nhe!

12 tháng 11 2018

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)