Question

найти средне арифметическое элементов массива, превосходящих некоторое число С.

Answer 1

var c,i,z:integer;

   mass,a:array[1..20] of integer;

   q:real;

begin

 writeln('Элементы массива:');

 for i:=1 to 20 do

 begin

   mass[i]:=random(11);

   write(mass[i],' ');

 end;

 writeln;

 write('c=');

 readln(c);

 write('Числа превосходящие с:  ');

 for i:=1 to 20 do  

 if (mass[i]>c) then

 begin

   inc(z);

   a[z]:=mass[i];

   write(mass[i],' ');

  end;  

 for i:=1 to z do

 begin

   q:=q+a[i];

 end;

 writeln;

 write('Среднее арифметическое этих чисел=',q/z);

end.