var n,i,d:longint;
    a,t:int64;
begin
write('Nhap n: '); readln(n);
write('Nhap cac phan tu cua day: ');
for i:=1 to n do begin
                 read(a);
                 if a>0 then begin
                             inc(d);
                             t:=t+a;
                             end;
                 end;
writeln('So phan tu duong trong day la: ',d);
write('Tong cac phan tu duong trong day la: ',t)

program oken;
uses crt;
var a: array [1..100] of integer;
    n,i,dem,s:longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    s:=0; dem:=0;
    for i:=1 to n do
        begin
            write('a[',i,']: '); readln(a[i]);
            if (a[i]>=0) then 
                begin
                    dem:=dem+1;
                    s:=s+a[i];
                end;
        end;
    writeln('Co ',dem,' phan tu duong trong day.');
    writeln('Tong ',dem,' phan tu duong trong day: ',s);
    readln;
end.