uses crt;
var a:array[1..1000]of integer;t,am,duong,i:integer;
begin
clrscr;
i:=1;
t:=0;
duong:=0;
am:=0;
while t<=100 do
begin
write('a[',i,']=');readln(a[i]);
if(a[i]>0)then inc(duong) else inc(am);
t:=t+a[i];
inc(i);
end;
writeln('trong day co:',am,'so am');
writeln('trong day co:',duong,'so duong');
readln;
end.