uses crt; var a:array[1..100] of integer; n,i,s:integer; begin clrscr; writeln('hay nhap so phan tu cua mang');readln(n); for i:=1 to n do begin writeln('phan tu thu ',i,':');readln(a[i]); end; s:=0; for i:=1 to n do if i>0 then s=s+a[i]; writeln('tong cac so duong la',s); readln;
end.