ai giúp mình về tin học lớp 11

lâu quá không post bài nên có thể sai quy đinh, mong ban quản trị thông cảm. Hiện là mình cần giải giúp mấy bài tập tin học lớp 11. Bạn nào biệt giúp mình với nha

Viết chương trình: Nhập vào số dương n (n<=100). Và dãy A gồm n số nguyên dương ( A1, A2...An). Thực hiện các yêu cầu sau: in ra

1.Dãy A vừa nhập
2.Các số chẵn trong dãy
3.Các số lẻ trong dãy
4.Số lượng số chẵn và số lẻ trong dãy
5.Số lượng số âm, số dương, và bằng không trong dãy
6.Tổng các số chẵn trong dãy
7.Tổng các số lẻ trong dãy
8.Phần tử lớn nhất trong dãy
9.Phần tử nhỏ nhất trong dãy
10.Số lượng số nguyên tố trong dãy

Cám ơn các bạn nhiều

có dùng hàm, thủ tục gì không hay chạy trực tiếp luôn

edit -------

Đây. Chạy luôn nhé.

Code:

program bt;

{Khai bao bien}
var A: array[1..100] of integer;
    u,i,j,n,nChan,nLe,nAm,nDuong,nZero,nNT,sChan,sLe,max,min:integer;

begin

{Nhap n va day A}
  write('Nhap n: '); readln(n);
  for i:=1 to n do
  begin
  write('A[',i,'] : = ');
  readln(a[i]);
  end;
 writeln;writeln('_________________________________________');writeln;

{Cau 1 : In day A}
  write('Day A: ');
  for i:=1 to n do write(a[i],'; ');
 readln;writeln;writeln('_________________________________________');writeln;

{Cau 2 : In cac so CHAN}
  nChan:=0;sChan:=0;
  write('Cac so CHAN: ');
  for i:=1 to n do
  begin
    if a[i] mod 2=0 then
    begin
      write(a[i],'; ');
      inc(nChan);
      inc(sChan,a[i]);
    end;
  end;
 readln;writeln;writeln('_________________________________________');writeln;

{Cau 3 : In cac so LE}
  nLe:=0;sLe:=0;
  write('Cac so LE: ');
  for i:=1 to n do
  begin
    if a[i] mod 2=1 then
    begin
      write(a[i],'; ');
      inc(nLe);
      inc(sLe,a[i]);
    end;
  end;
 readln;writeln;writeln('_________________________________________');writeln;

{Cau 4: In so luong so CHAN va so LE}
 write('Co ',nChan,' so chan va ',nLe,' so le');
 readln;writeln;writeln('_________________________________________');writeln;

{Cau 5: }
  nAm:=0;nDuong:=0;nZero:=0;
  for i:=1 to n do
  begin
    if a[i]<0 then nAm:=nAm+1;
    if a[i]=0 then nZero:=nZero+1;
    if a[i]>0 then nDuong:=nDuong+1;
  end;
  writeln('Co ',nAm,' so Am');
  writeln('Co ',nDuong,' so Duong');
  writeln('Co ',nZero,' so 0');
  readln;writeln('_________________________________________');writeln;

{Cau 6: In Tong cua cac so CHAN}
  writeln('Tong cac so CHAN = ',sChan);
  readln;writeln('_________________________________________');writeln;

{Cau 7: In Tong cua cac so LE}
  writeln('Tong cac so LE = ',sLe);
  readln;writeln('_________________________________________');writeln;

{Cau 8: Phan tu lon nhat}
  max:=a[1];
  for i:=2 to n do
  begin
    if a[i]>max then max:=a[i];
  end;
  writeln('MAX : ',max);
  readln;writeln('_________________________________________');writeln;

{Cau 9: Phan tu nho nhat}
  min:=a[1];
  for i:=2 to n do
  begin
    if a[i]<min then min:=a[i];
  end;
  writeln('MIN : ',min);
  readln;writeln('_________________________________________');writeln;

{Cau 10: Dem So nguyen to}
  j:=1;nNT:=0;
  for i:=1 to n do
    if a[i]>1 then
    begin
      repeat inc(j);
      until (a[i] mod j=0);
      if j>(a[i] div 2) then inc(nNT);
      j:=1;
    end;
  write('Co ',nNT,' so NGUYEN TO trong day');
  writeln('_________________________________________');writeln;readln;

end.

bài tập mảng 1 chiều đó đại ca ơi...

pascal hả . t quên hết rồi ... ^^

Việt K làm mảng chứ gì nữa mà ko phải
@Jukyto