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.