uses crt;
var c:array[1..250]of real;
dem,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong cac so duong trong day la: ',dem);
readln;
end.