Cho dãy A gồm N số nguyên a1,a2,a3,…an.Hãy tính tổng các số âm trong dãy

Uses crt;
Var t,i,n:longint; a:array[1..1000000]of longint;
Begin
Clrscr;
   write(‘N=’);readln(n);
   For i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
         if a[i]<0 then inc(t,a[i]);
      end;  writeln(t);
Readln;
End.