Рассчитать значения 12-ти элементов массива Y по формуле

[Promi]

Рассчитать значения 12-ти элементов массива Y по формуле . Вывести на экран этот массив и новый, разместив в нем первоначально элементы, значения которых меньше среднего арифметического, а потом остальные, не меняя их последовательности.

[newerow1989]

function yi(i:real):real;
begin
   yi:=i*i-2*i+19.3*cos(i);
end;

var y:array[1..12] of real;
    i,j,k:integer;
    sr,z:real;
begin
   Randomize;
   sr:=0;
   For i:=1 to 12 do
   begin
      y[i]:=yi(Random);
      Write(y[i]:5:5,'  ');
      sr:=sr+y[i];
   end;
   Writeln;
   Writeln;
   sr:=sr/12;
   Writeln(sr:5:5);
   Writeln;
   k:=1;
   For i:=1 to 12 do
      If y[i]<sr then
      begin
         z:=y[i];
         For j:=i downto k+1 do
            y[j]:=y[j-1];
         y[k]:=z;
         k:=k+1;
      end;
   For i:=1 to 12 do
      Write(y[i]:5:5,'  ');
   Writeln;
   Readln;
end.

Сойдет?

[ViktorR]

Исключительно только как другой вариант:

const n = 12;
function f(x:real):real;
begin
   f:=sqr(x)-2*x+19.3*cos(x);
end;

var      y: array[1..12] of real;
       i,j: integer;
    sr,tmp: real;
begin
   Randomize;
   sr := 0;
   For i := 1 to n do
   begin
      y[i] := f(Random);
      Write(y[i]:5:5,'  ');
      sr:=sr + y[i] / n;
   end;
   Writeln(#10, #13); {один переход на новую строку за счет комбинации символв и второй - writeln}
   Writeln(sr:5:5);
   Writeln(#10, #13);
   i := 1;
   j := n;
   while i <= j do
   begin
      if y[i] > sr then
         while i < j do
         begin
            if y[j] < sr then
            begin
               tmp := y[i];
               y[i] := y[j];
               y[j] := tmp;
               j := j - 1;
               break;
            end;
            j := j - 1;
         end;
      i := i + 1;
   end;

   For i:=1 to 12 do
      Write(y[i]:5:5,'  ');
   Writeln;
   Readln;
end.

1. Не только для 12-и элементов массива;
2. sr = (a +b + c+ ...)/n = a/n + b/n + c/n + ... И это более верно, так как позволяет находить среднее для большего числа элементов. Простое суммирование приведет к переполнению раньше ...
3. В место повторения writeln можно использовать вывод последовательности символов, которые дают тот же результат.
4. После обнаружения значения, которое больше среднего, ищется элемент, с "хвоста" массива, с которым можно выполнить обмен. При этом, конечно же, нарушается последовательность появления элементов массива, но уменьшается число перестановок.


Как-то так, ...