Program chik2; var a,i,h,l:integer; begin l:=0; h:=0; for i:=1 to 10 do begin read(a); if(a>0)then l:=l+1; if(a<0)then h:=h+1;<br>end; write(l,' ',h); end. l-кол-во полож h-кол-во отрицательных