Question

De calculat media aritmetică a elementelor pozitive a tabelului.
Am nevoie de un program in Pascal ​

Answer 1

var

   n,s,k,i: integer;

   v: array[1..101] of integer;

begin

   read(n);

   k:=0;

   s:=0;

   for i:=1 to n do begin

       read(v[i]);

       s:=s+v[i];

       k:=k+1;

   end;

   write(real(s/k));

end.