[limelight199]

Задача: Задана последовательность X = (x1, x2, …, x10).
Сформировать из неё одномерный массив Y, состоящий из элементов, удовлетворяющих условию X(i) меньше или равно (A - X(5)), где A - среднеарифметическое значение элементов массива X. Если таковых не окажется, вывести фразу «Искомых элементов нет». Полученный массив напечатать в строчку.
X = {0, -22.4, 5.2, -2.25, 7.92, 0.24, -0.21, 15.8, 9.1, 3.2}.


Код:

PHP код:

type mas1=array[1..10] of real;
      const x: mas1 = (0, -22.4, 5.2, -2.25, 7.92, 0.24, -0.21, 15.8, 9.1, 3.2);

var
     Form1: TForm1;
     implementation

{$R *.dfm}

      procedure TForm1.btn1Click(Sender: TObject);

  var
      y:mas1;
      i,k:integer;
      A:real;
      s:string;

  begin

      k:=1;
      A:=1;
      For i:=1 to 10 do
      A:= 13.72;
      For i:=1 to 10 do

  begin

      If x[i]<=A-x[5] then
      begin
      y[k]:=x[i];

      s:=s+ '   '+Floattostr(y[k]);
      F1Book1.NumberRC[1,k]:=y[k];
      inc(k);

  end;
  end;

      if x[i] <= A-x[5] then
      lbl1.Caption:=s
      else
      lbl1.Caption:='Исходных элементов нет';
  end;
  end. 


Нужна помощь вот тут:

PHP код:

begin

      k:=1;
      A:=1;
      For i:=1 to 10 do
      A:= 13.72; 


Тут он должен высчитывать для A среднее арифметическое. Как это записать?

[Bargest]

Код:

A:=0;
for i:=1 to 10 do
 A:=A+x[i];
A := A/10;