Составить программку, которая в последовательности из всех N целых чисел (до

1. Путь решения

Так как среднее всех введенных чисел нельзя отыскать, пока не будет окончен ввод этих чисел, а затем каждое число необходимо будет сопоставлять с этим средним, введенные числа придется где-то беречь. К примеру, в массиве длиной 100 (в условии сказано, что количество чисел "до 100").
Считаем, что описан массив a[1..100] и в нем находятся n100 целых чисел (можно и нецелых, но раз ничего не сказано в условии, мы вправе решить это сами).
Тогда среднее обусловится по формуле:

а сумму мы умеем считать, накапливая значение в цикле со счетчиком, дающем проход по всем элементам массива.
Искомое количество чисел, меньших среднего - это тоже сумма, найти которую дозволит еще один цикл, но в нем теснее будет анализ условия.


2. Программка на языке Pascal

const
  nn=100;
var
  i,n,k,s:integer;
  m:real;
  a:array[1..nn] of integer;
begin
  Write('Количество чисел равно '); Read(n);
  Writeln('Введите числа:');
  s:=0;
  for i:=1 to n do begin Read(a[i]); s:=s+a[i] end;
  m:=s/n;
  k:=0;
  for i:=1 to n do
    if a[i]lt;m then Inc(k);
  Writeln('Количество чисел, превосходящих среднее значение, одинаково ',k)
end.

3. Пример работы программки

Количество чисел одинаково 10
Введите числа:
6 -4 11 -7 5 7 0 3 5 -2
Количество чисел, превосходящих среднее значение, равно 4