var

   a : array of real := (3.2,2.5,0,0.7,0,-1.3,4.3,-2.9,0,-0.4,-5.2,3.4);

   n : integer;

   s : real;

begin

   writeln('массив a = ', a);

   write('номера элементов равных 0: ');

   for var i :=0 to a.Length-1 do begin

       if a[i] = 0 then write(' ', i);

       if a[i] > 0 then begin

           n += 1;

           s += a[i];

       end;

   end;

   writeln;

   writeln('s = ', s/n);

end.