Giúp mình vs mình cảm ơn mọi người nhiều lắm. Viết chương trình nhập vào dãy số nguyên bất kỳ (N >= 30 ) . Tính và in ra màng hình các kết quả sau a) dãy số nguyên vừa nhập b) các số nguyên âm trong dãy vừa nhập c) đếm các số nguyên chia hết cho 2 trong dãy số

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.