Viết chương trình nhập từ bàn phím số nguyên N( N<=100) và dãy số nguyên A. Tính tổng các số nguyên và số âm của dãy số nguyên đó

var a:array[1..100] of integer;

       i,n,tong:integer;

begin 

write('nhap n'); readln(n);

tong:=0;

for i:=1 to n do 

begin

readln(a[i]);

if a[i]<0 then tong:=tong+a[i];

end;

write(tong);

end. 

program ct;

uses crt;

var A:array[1..100] of integer;

      i,n:byte;

      S,Sa:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

   for i:=1 to n do

     begin

        S:=S+A[i];

        if A[i]<0 then Sa:=Sa+A[i];

     end;

   writeln('Tong cac so nguyen la: ',S);

  writeln('Tong cac so am la: ',Sa);

readln;

end.

Học tốt!