program sosanh;
uses crt;
var A:array[1..10000] of integer;
n,i,da,dd:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day'); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');
da:=0; dd:=0;
for i:=1 to n do
begin
write('GIa tri cua phan tu thu ',i,': ');
readln(A[i]);
if A[i]<0 then da:=da+1;
if A[i]>0 then dd:=dd+1;
end;
if da>dd then write('So luong nguyen am lon hon so luong nguyen duong')
else if da<dd then write('So luong nguyen duong lon hon so luong nguyen am)
else write('So luong nguyen am bang so luong nguyen duong');
readln
end.
