program bai_giai;

uses crt;

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

      n,i,d:byte;

begin

     clrscr;

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

     for i:=1 to n do

          begin

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

          end;

     d:=0;

     write('Day vua nhap la: ');

     for i:=1 to n do

          begin

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

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

          end;

     writeln;

     if d=0 then writeln('Khong co so am trong mang')

     else begin

          write('Cac so am trong mang la: ');

          d:=0;

          for i:=1 to n do

               begin

                    if A[i]<0 then write(A[i],' ');

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

               end;

     end;

     writeln;

     write('Co ',d,' so chia het cho 2 trong mang');

     readln;

end.

#Chương trình ngắn

#Dễ hiểu

uses crt;
var n,i,b,c:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n (N >= 30) =');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i]<0 then inc(b);
         if a[i] mod 2=0 then inc(c);
      end;
   write('a) '); for i:=1 to n do write(a[i],' '); writeln;
   writeln('b) Co ',b,' so am');
   writeln('b) Co ',c,' so nguyen chia het cho 2');
readln
end.