program baigiai;
uses crt;
var B:array[1..300] of integer;
n,i:integer;
t,td:longint;
begin
clrscr;
write('Nhap so luong phan tu n:'); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
t:=0; td:=0;
for i:=1 to n do
begin
write('B[',i,']= ');
readln(B[i]);
t:=t+B[i];
if B[i]>0 then td:=td+B[i];
end;
writeln('Tong cac phan tu cua mang la: ',t);
writeln('Tong cac phan tu duong cua mang la: ',td);
readln
end.