nhập vào một dãy n số nguyên A[1],A[2]...A[n] đọc ra màn hình các thông tin sau tổng các phần tử của dãy??? số lượng các số hạng âm và tổng các số hạng âm

t:=0;t2:=0;dem:=0;

for i:=1 to n do

 Begin

  T:=t+A[I];//tong day

  If a[i]<0 then

   begin

   t2:=t2+a[i];//t2 la tong am

   dem:=dem+1;//so luong

    end;

end;

Nhập xuất tự làm

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s,da,sa: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; da:=0; sa:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
                If A[i]<0 then
                Begin
                        inc(da);
                        sa:=sa+A[i];
                End;
        End;

        Writeln('S = ',s);
        Writeln('Dem am = ',da)
        Write('Tong am = ',sa);
        Readln
End.