program sevenreal;
var a:array[1..7] of real; i,n:integer; x,s:real;
begin
  for i:=1 to 7 do
    readln(a[i]);
  for i:=1 to 7 do
    s:=s+a[i];
  x:=s/7;
  for i:=1 to 7 do
    if a[i] > x then
      n:=n+1;
  writeln('Количество элементов = ',n);
end. {за всеми обьяснениями обращаться в лс: vk.com/ilyahard}