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

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.