Viết chương trình nhập mảng 1chiều gồm n phần tử (n nhỏ hơn hoặc bằng 100) kiểu nguyên rồi thực hiện

a, đếm số lượng phần tử dương cho kết quả ra màn hình

b, tính tổng các phần tử dương trong mảng

c, tính trung bình các phần tử trong mảng

d, tính trung bình các phần tử dương trong mảng

e, tìm vị trí đầu tiên của phần tử

với k nhập từ bàn phím

f, đếm số lượng phần tử là số nguyên tố trong mảng

Mong mọi người giúp em giải ạ

$#QLinkVN$

Cấu trúc chương trình cụ thể như sau: 

program QLinkVN;
uses crt;
var n, i, duong, tong, t2, dem, tongduong, j, d, k:longint;
    tb, tbd: real;
    a: array[1..100] of longint;
begin clrscr;
write('Nhap so luong phan tu: ');readln(n);
begin
for i:= 1 to n do
    begin 
    write('Nhap phan tu thu ', i, ': '); readln (a[i]);
    end;
end;
duong:= 0; tong:=0; t2:=0; tbd:=0; tongduong:=0;
for i:= 1 to n do
  begin
      if a[i] > 0 then duong:= duong + 1;
   if a[i] > 0 then tong:= tong + a[i];
  end;
  begin 
    for i := 1 to n do t2:= t2 + a[i]; 
    tb:= t2 / n;
  end;
  begin 
 for i:=1 to n do if a[i]>0 then tongduong:=tongduong+a[i];
 tbd:=tongduong/n;
 end;
  begin
 for i:=1 to n do
    begin
        d:=0;
        for j:=1 to a[i] do
        if a[i] mod j = 0 then d:=d+1;
        if d=2 then dem:=dem+1;
    end;
  end;
    write('Nhap gia tri k: '); readln(k);
    for i:=1 to n do
    if a[i]=k then writeln('e) Vi tri cua so do la ',i);
writeln('a) So luong phan tu duong la ',duong);
writeln('b) Tong cac gia tri duong la ',tong);
writeln('c) Trung binh cac phan tu trong mang la: ',tb:0:2);
writeln('d) Trung binh cac phan tu duong trong mang la: ',tbd:0:2);
writeln('f) So luong phan tu la so nguyen to la: ',dem);
readln;
readln;
end.