Uses crt;
Var i,n,s:integer;
A:array[1..100] of integer;
Begin
Clrscr;
Write('nhap n= '); readln(n);
For i:=1 to n do
Begin
Write('nhap phan tu thu a[',i,']: '); readln(a[ i]);
End;
S:=0;
For i:=1 to n do
If a[i]>0 then s:=a[ i]+s;
Write('tong so duong=',s);
Readln
End.