Массивы

[Олеся Хусаинова]

В массиве целых чисел а1,...,аn переставить элементы так ,чтобы вначале шли элементы массива, большие а1,затем сам элемент а1,и далее-элементы, меньшие а1.

[zzzzza]

это?

Var a: array[1..100] of integer;
i,j,c,n: Integer;
Begin
writeln('Scolko chisel budet: ');
read(n);
for i:=1 to n do begin
a[i]:=round(random(11));
write(a[i],' ');
end;
writeln;
For i:=1 to n-1 do begin
for j:=i+1 to n do begin
If a[i]<a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
end;
end;
for i:=1 to 10 do begin
write(a[i],' ');
end;
end.

[Олеся Хусаинова]

не совсем...тут числа выстраиваются по убыванию,а надо,чтобы сначала элементы большие а1.ПОТОМ А1,ЗАТЕМ ЭЛЕМЕНТЫ МЕНЬШИЕ А1

[whatever]

Сообщение от Олеся Хусаинова

...а надо,чтобы сначала элементы большие а1.ПОТОМ А1,ЗАТЕМ ЭЛЕМЕНТЫ МЕНЬШИЕ А1

А разве это ни есть сортировка по убыванию?
Честно, три раза перечитал, прежде чем спросить.

Мой вариант:

Var
  a:array[1..100] of integer;
  i,j,n,a1,tmp:Integer;
Begin
  write('Размерность массива: ');
  readln(n);
  for i:=1 to n do
    begin;
      write('Вводи a[',i,']',': ');
      readln(a[i]);
    end;
  writeln;
  a1:=a[1];
  for i:=1 to n do
    for j:=i to n do
      if a[i]<a[j]then
        begin
          tmp:=a[i];
          a[i]:=a[j];
          a[j]:=tmp;
        end;
  i:=1;
  write('числа большие a1: ');
  while a[i]>a1 do
    begin
      write(a[i],' ');
      i:=i+1;
    end;
  writeln;
  writeln('a1: ',a[i]);
  i:=i+1;
  while a[i]=a1 do
    i:=i+1;
  write('числа, которые меньше a1: ');
  while i<=n do
    begin
      write(a[i],' ');
      i:=i+1;
    end;
  readln;
end.

И еще, непонятно, что нужно делать, если a1=a2=a16 и тд. Я их просто не выводил.

[TinMan]

Сообщение от whatever

А разве это ни есть сортировка по убыванию?

Не совсем..
Череп, я думаю, тут подразумевается, что нужно сохранить порядок следования чисел обеих категорий между собой. Согласен, это не сказано в задании явно, но намек на это явный (именно в том, что это не названо сортировкой).

И еще, непонятно, что нужно делать, если a1=a2=a16 и тд. Я их просто не выводил.

А все свалить в середину )).

Тут проблема скорее в том, можно ли использовать дополнительные массивы.. Если да, то решение простоеЮ примерно такое:

const
  m= 20;
  r= 9;

var
  a,L,G: array[1..m] of integer;
  i,nL,nG,a1: integer;

begin
  //Randomize;    // uncomment after debugging is over
  for i:=1 to m do a[i]:= Random(2*r+1)-r;
  for i:=1 to m do write(a[i]:3);
  a1:= 0;
  writeln;
  nL:= 0;
  nG:= 0;
  for i:=1 to m do
    if a[i]<a1 then begin
      inc(nL);
      L[nL]:= a[i]
    end
    else if a1<a[i] then begin
      inc(nG);
      G[nG]:= a[i]
    end;
  for i:=1 to nG do a[i]:= G[i];
  for i:=1 to nL do a[m-nL+i]:= L[i];
  for i:=nG+1 to m-nL do a[i]:= a1;
  for i:=1 to m do write(a[i]:3);
  readln
end.

А если нет - то алгоритм усложнится и выполнение замедлится. Олеся, что ты скажешь?

[whatever]

Сообщение от TinMan

Череп, я думаю, тут подразумевается, что нужно сохранить порядок следования чисел обеих категорий между собой.

Вот уж действительно, даже в голову не пришло бы. Похоже, что это и имелось ввиду. Но такие условия нужно указывать в явном виде.
Кстати, в этом случае все еще проще, сортировать ничего не надо:

  write('числа большие a1: ');
  for i:=2 to n do
    if a[1]<a[i] then
      write(a[i],' ');
  writeln;
  writeln('a1: ',a[1]);
  write('числа, которые меньше a1: ');
  for i:=2 to n do
    if a[1]>a[i] then
      write(a[i],' ');

[Олеся Хусаинова]

В принципе, получается,что подходят оба варианта....Сегодня, когда я сдавала лабу(я её по - своему сделала) препод потребовал от меня ,чтобы массив задавался автоматически (т.е. прогой) и,чтобы выводился сразу второй массив уже такой какой задается в задаче(сначала элементы большие а1,потом сам элемент а1 и т.д)Короче вот этот вариант он у меня принял...

program pr;
  var i,x,n,k,m:integer;
      a,b,c:array[0..100] of integer;
begin
  randomize;
  writeln('vvedite n chislo elementov v masive');
  write('n=');
  readln(n);
  for i:=1 to n do a[i]:=random(100);
  writeln('massbv A');
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=0;
  m:=0;
  x:=a[1];
  for i:=1 to n do  begin
      if x<a[i] then begin
                       k:=k+1;
                       b[k]:=a[i];
                     end else
                     begin
                       m:=m+1;
                       c[m]:=a[i]
                     end; end;
  for i:=1 to k do a[i]:=b[i];
  for i:=1 to m do a[i+k]:=c[i];
  writeln('massiv B');
  for i:=1 to n do begin
      write(' ', ' ');
      write(a[i]);
    end; read (b[i]);end.

написано, правда, соблюдая не все законы и правила Паскаля,но главное работает)
Ребят,Спасибо большое)Думаю,оба варианты могут подойти)

Кстати,согласно по поводу задания...что далеко не всё понятно(Но именно в таком виде его дает нам препод..

[Serge_Bliznykov]

Сообщение от whatever

Кстати, в этом случае все еще проще, сортировать ничего не надо:

Э нет. Так не пойдёт.

В условии чётко сказано:

В массиве целых чисел а1,...,аn переставить элементы так

Вы же никаких перестановок не делаете. А то, что Вы элементы выводите в нужном порядке - задачу формирования правильного массива НЕ РЕШАЕТ!

[whatever]

Сообщение от Serge_Bliznykov

Э нет. Так не пойдёт.

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

Опять же, постановка задачи некорректна. Если заострить внимание на слове "переставить", то мой первый вариант вполне подходит.

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

[Serge_Bliznykov]

whatever, согласен с Вами.