Question

Вычислить среднее арифметическое значение положительных элементов массива А[12] , при том что Ai-действительные числа

Answer 1

var A: array [1..12] of real;

var ai, sum: real;

var i, count: integer;

begin

   for i:= 1 to 12 do begin

       read(ai);

       A[i]:= ai;

   end;

   sum:= 0;

   count:= 0;

   for i:= to 12 do begin

       if A[i] > 0 then begin

           sum:= sum + A[i];

           count:= count + 1

       end

   end;

   writeln(sum / count)

end.

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqReal(12).Where(p -> p > 0).DefaultIfEmpty.Average.Print;

end.