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

0 bình luận về “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”

1. 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.

   Bình luận