Вычислить количество элементов, больших среднего значения элементов вектора

1

Ответы и объяснения

2013-02-04T17:41:29+00:00

var

  count, i, n : integer;

  s : real;

  a : array [1..1000] of integer;

begin

  read (n);

  s := 0;

  for i := 1 to n do

  begin

    read (a[i]);

    s := s + a[i];

  end;

  s := s / n;

  count := 0;

  for i := 1 to 1000 do

    if a[i] > s then inc (count);

  writeln (count);

end.