program Tb;

uses crt;

var A:array[1..1000] of integer;

      i,n:integer;

      Tb:real;

begin clrscr;

   write('Nhap so phan tu n: '); readln (n);

   for i:=1 to n do

     begin

        write ('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   for i:=1 to n do 

     if A[i]>0 then Tb:=(Tb+A[i])/n;

   writeln ('Trung binh cong cac so duong la:', Tb:4:2);

readln;

end.

Học tốt!

Program tinh_tbc;

Uses crt;

Var A :  array [1..150] of integer;

               S,i,n,d: integer;

               Tbc: real;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

S:=0;

d:=0;

For i:=1 to n do 

If A[i]>0 then

Begin

d:=d+1;

S:=S+A[i];

Tbc:= S/d;

end;

Writeln ('Trung binh cong cac so duong trong day la:', Tbc:8:3);

Readln 

End.