Question

Пожалуйста!!! очень срочно...
Определить среднее арифметическое положительных элементов массива A, и вывести на экран номера нулевых элементов массива. A=(3,2;2,5;0;0,7;0;-1,3;4,3;-2,9;0;-0,4;-5,2;3,4) . Вывести на экран результаты и заданный массив. Pascal.

Answer 1

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.