Паскаль.Одномерный массив.

[Evgenii_95]

дан вещественный массив a размером n(n=10).переставить элементы массива таким образом,чтобы в начале в массиве шла группа элементов больших первого элемента в исходном массиве,потом-группа элементов меньших или равных ему.

[Arigato]

дан вещественный массив a размером n(n=1).

Ну если n=1, то так:

var
  a: array[1..1] of real;
  i: integer;
 begin
   for i := 1 to 1 do
     read(a[i]);
   {т.к. n=1, то все элементы уже на своих местах}
   for i := 1 to 1 do
     writeln(a[i]);
 end.

[Evgenii_95]

Поторопился с вводом поэтому не 1 а 10

[Arigato]

Заготовка есть у вас, подставляйте 10 и дописывайте немного кода.

[newerow1989]

const n=10;
var p:array[1..10] of real;
    i,j,k:byte;
    z,p1:real;
begin
   Randomize;
   For i:=1 to n do
      Readln(p[i]);
   p1:=p[1];
   k:=1;
   For i:=2 to n do
      If p[i]>p1 then
      begin
         z:=p[k];
         p[k]:=p[i];
         For j:=i downto k+2 do
            p[j]:=p[j-1];
         k:=k+1;
         p[k]:=z;
      end;
   For i:=1 to n do
      Write(p[i]:2:0,'  ');
   Readln;
end.

Сойдет?

[Poma][a]

Сойдет?

Нет. Сложность-то какая!

[Аватар]

  Readln(p1);
  k1:=1; k2:=10;
  For i:=2 to 10 do begin
    Readln(p2);
    if p2>p1 then begin p[k1]:=p2; Inc(k1); end
             else begin p[k2]:=p2; Dec(k2); end;
  end;
  p[k1]:=p1;