giúp mình với huhuh viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím rồi - đếm các số lẻ/ chẵn của dãy số - tìm giá trị lớn nhất nhỏ nhất tính tổng số lẽ , số chẵn tính tổng các phần tử của dãy số

program ct;

uses crt;

var i,n,S,d1,d2,tongchan,tongle,Max,Min:integer;

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

begin

clrscr;

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

     for i:=1 to n do

begin

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

end;

  d1:=0; d2:=0; Max:=A[1]; Min:=A[1]; tongchan:=0; tongle:=0; S:=0;

      for i:=1 to n do

  begin

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

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

     if Max<A[i] then Max:=A[i];

     if Min>A[i] then Min:=A[i];

     if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];

     S:=S+A[i];

  end;

  write('KET QUA');

  writeln('co',d1,' la so chan');

  writeln('co',d2,' la sole');

  writeln('gia tri lon nhat la:',Max);

  writeln('gia tri nho nhat la:',Min);

  writeln('tong so chan la:',tongchan);

  writeln('tong so le la:',tongle);

  writeln('tong la:',S);

readln

end.

var A: array [1..100] of integer;
    n: integer;
    i: integer;
    tongsochan,tongsole,tong,max,min,sole,sochan: integer;
begin
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(A[i]);
    end;
    for i:=1 to n do 
    begin
        if (a[i] mod 2 = 0) then 
        begin
            sochan:=sochan+1;
            tongsochan:=tongsochan+A[i];
        end
        else 
        begin
            sole:=sole+1;
            tongsole:=tongsole+A[i];
        end;
        if max<A[i] then max:=A[i];
        if min>A[i] then min:=A[i];
        tong:=tong+A[i];
    end;
    writeln('Ket qua: ');
    writeln('So luong so chan: ',sochan);
    writeln('So luong so le: ',sole);
    writeln('Gia tri lon nhat: ',max);
    writeln('Gia tri nho nhat: ',min);
    writeln('Tong cac gia tri la so chan: ',tongsochan);
    writeln('Tong cac gia tri la so le: ',tongsole);
    writeln('Tong tat ca cac phan tu: ',tong);

    readln
end.