Массив!

[navyvn]

В массиве b=(b1,b2,...,bn) найти количество элементов , больших средноге арифметического значения элементов того же массива.

[p51x]

сколько платите?

[Vikenty]

За такой простой код платить?

procedure TForm1.FormCreate(Sender: TObject);
const b: array[0..17] of integer=
(11,12,13,12,12,9,10,11,11,10,9,9,9,10,12,12,11,11);
var
  Sred,i,j,c: integer;
begin
  Sred:=0; c:=0;
  for i:=0 to High(b) do
  Sred:=Sred+b[i];
  Sred:=Sred div High(b);

  for j:=0 to High(b) do
     if b[j]>Sred then
       c:=c+1;

ShowMessage(IntToStr(c));
end;

А вообще больше похоже на приказ, чем на просьбу...

[p51x]

За такой простой код платить?

Не за код,а за лень и мое время.