Bài bạn trên nhầm 1 số chỗ và chưa tính phần tử âm. Mình sửa lại
Uses Crt;
Var n,i,T : integer ;
      a:array [1...100] of integer ;
Begin 
    Write ('So phan tu la:);
    Readln(n);    
    For i:=1 to n do 
       begin 
       write ( 'Phan tu thu ',i,' la: ') ; readln (a[i]);
       end;
    For i:=1 to N do 
    If a[i]<0 then T:=T+a[i];
    If T=0 then Write ('Không có phần tử âm')
    Else Write(T);
Readln
End.