Quang Huy's Profile

vì giữa các lớp áo mỏng có không khí mà không khí dẫn nhiệt kém nên nhiệt từ cơ thể ta sẽ ít truyền ra ngoài hơn nên sẽ ấm hơn 

uses crt;

​var A:array[1..100] of integer;

      n,i:integer;

begin

clrscr;

write('Nhap vao so phan tu cua day : '); 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]>0 then write(A[i],' ');

readln;

end.