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.
