Viết chương trình nhập vào mảng A gồm n phần tử ( n $\leq$ 100 ) . Tính trung bình cộng các số dương trong mảng P/S: mảng có 5 phần tử các số lần lượt là: 10, -20, 15, -6, 5

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,dem,s:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        dem:=0; s:=0;
        for i:=1 to n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        if a[i]>0 then
                                begin
                                        s:=s+a[i];
                                        dem:=dem+1;
                                end;
                end;
        writeln('TBC cac so duong cua mang: ',s/dem:0:3);
        readln;
end.