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

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.