program mang;

uses crt;

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

      n,i,T: integer;

Begin

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

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         write('Day so vua nhap la: ');

         for i:=1 to n do write(A[i],'  ');

         writeln;

         for i:=1 to n do

              if A[i]<0 then T:=T+A[i]

              else write('Khong co so am');

         write('T = ',T);

         readln

End.

uses crt;

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

    n,i,s,dem,sch,x,demx:integer;

begin

   clrscr;

   write('Nhap n: '); readln(n);

   write('Nhap x: '); readln(x);

   s:=0; dem:=0; sch:=0; demx:=0;

   for i:=1 to n do

   begin

      write('Nhap phan tu thu ',i,': ');

      readln(A[i]);

      s:=s+A[i];

      if A[i]<0 then inc(dem);

      if A[i] mod 2 = 0 then sch:=sch+A[i];

      if A[i] = x then inc(demx);

   end;

   for i:=1 to n do write(A[i]:4);

   writeln;

   writeln('Tong cac phan tu trong day la: ',s);

   writeln('Co ',dem,' so hang la so nguyen am');

   writeln('Tong cac so chan la: ',sch);

   writeln('So luong cac phan tu bang ',x,': ',demx);

   readln

end.