Var a:array [1..100] of integer;
s,i,k,n:integer;
 sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
    for i := 1 to n do   
  readln(a[i]);   
s:=0;
k:=0;
   for i := 1 to n do
 begin
 s:=s+a[i];
sr:=s/n;  
  end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
end.

Var a:array [1..999] of integer;
i,n,h:integer;
c:real;
begin
c:=0;
write ('Введите кол-во элементов: ');
readln (n);
WRITELN;
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
c:=c+a[i];
end;
c:=c/n;
for i:=1 to n do
if a[i]>c then h:=h+1;
WRITELN;
writeln ('Среднее арифметическое = ',c);
writeln ('Кол-во элементов превышающее среднее арифметическое: ',h);
end.